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1.0  Introduction  to  CSM  Testbed  Procedures  Manual 

This  manual  is  designed  to  assist  users  in  defining  and  using  command  procedures  to 
perform  structural  analyses.  It  is  expected  that  the  user  has  read  Chapters  1 and  2 of  the 
CSM  Testbed  User’s  Manual  (reference  1-1).  It  is  assumed  that  the  user  is  familiar  with 
terms  such  as  CLIP,  macrosymbol,  processor,  and  dataset. 

Runstreams  are  the  vehicle  used  to  perform  structural  analyses  with  the  CSM  Testbed. 
The  term  “runstream”  most  commonly  refers  to  the  file  (or  files)  used  to  perform  a specific 
analysis,  although  it  may  also  refer  to  input  at  an  interactive  session.  A runstream  will 
typically  contain  CLAMP  directives  and  processor  commands. 

Directives,  recognized  and  processed  by  CLIP,  provide  the  user  with,  among  other  things, 
a means  of  defining  command  procedures.  These  command  procedures,  defined  using 
the  *PR0CEDURE  directive,  bear  some  resemblance  to  FORTRAN  subroutines.  They  may 
contain  branching  and  looping  constructs  (implemented  using  the  *D0,  *IF,  and  *WHILE 
directives)  as  well  as  other  directives  and  processor  and  macroprocessor  commands.  Com- 
mand procedures  may  be  given  arguments  which,  unlike  FORTRAN  subroutine  arguments, 
may  be  assigned  default  values.  When  a command  procedure  is  called  (using  the  *CALL  di- 
rective) execution  control  shifts  to  the  command  procedure  until  the  last  directive  (an  *END 
directive)  in  the  procedure  is  encountered.  Once  the  *END  directive  is  encountered,  control 
returns  to  the  input  line  in  the  calling  procedure  or  runstream  immediately  following  the 
call. 

Command  procedures,  while  extremely  useful,  are  not  a requirement  for  performing  many 
types  of  simple  analyses.  A command  procedure  is  only  required  if  using  the  looping  or 
branching  constructs  (*.e.,  the  *D0,  * IF,  and  *WHILE  directives).  Procedures  should  not 
be  used  to  carry  out  the  computationally  intensive  activities  that  are  better  performed  by 
processors. 

This  chapter  begins  with  a discussion  of  CLAMP  directives  and  continues  with  a discussion 
of  the  mechanics  of  processor  execution.  A template  for  linear,  static  analyses  is  provided  in 
Section  1.3.  Section  1.4  offers  some  suggestions  for  creating  and  using  procedures  and  the 
CSM  Testbed  Procedures  Manual  is  described  in  Section  1.5.  Some  examples  of  command 
procedures  are  given  in  Section  1.6. 
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1.1  CLAMP  Directives 


Directives  are  special  commands  that  are  recognized  and  processed  by  CLIP  and  are  not 
transported  to  the  processor.  A directive  is  to  CLIP  like  ordinary  input  is  to  the  processor. 
A directive  is  distinguished  from  ordinary  input  by  beginning  with  a keyword  prefixed  by 
an  asterisk.  The  keyword  (directive  verb)  may  be  followed  by  a verb  modifier,  qualifiers, 
and  parameters,  as  required  by  the  syntax  of  the  specific  directive.  See  references  1-2 
and  1-3  for  a complete  description  of  the  command  language.  An  interactive  help  facility, 
accessed  by  the  *HELP  directive,  is  built  in  to  explain  directives.  For  a complete  list  with 
full  descriptions,  the  user  is  directed  to  reference  1-3. 


A summary  of  the  most  useful  directives,  grouped  according  to  their  function  in  the  Testbed 
execution  environment  is  provided  here  for  easy  reference.  Detailed  descriptions  of  all 
directives  are  provided  in  reference  1-3. 


♦OPEN 

♦CLOSE 

♦TOC 

♦PRINT 

♦ PACK 

♦COPY 

♦DELETE 

♦ENABLE 

♦FIND 

♦RENAME 


♦SET  PLIB 

♦PROCEDURE 

♦CALL 


♦ IF 
♦ELSE 
♦ELSEIF 
♦ENDIF 

♦DO 

♦ENDDO 


Table  1.1-1  CLAMP  Directive  Summary 

Global  Data  Manager  Interface 

Open  data  library 
Close  data  library 
Print  table  of  contents  of  library 

Print  table  of  contents,  dataset  record  contents,  or  record 
access  table  of  dataset 

Pack  a data  library,  deleting  disabled  datasets 

Copy  datasets  or  dataset  records 

Delete  (i.e.,  disable)  dataset  or  record 

Enable  previously  deleted  or  disabled  datasets  or  records 

Returns  information  on  libraries,  datasets,  or  records 

Renames  dataset  or  record 

Command  Procedure  Management 

Set  procedure  library  for  residence  of  command  procedures 
Initiates  definition  of  command  procedure 
Redirects  input  to  a callable  procedure  (“calls”  a procedure 
with  optional  argument  replacement) 

Nonsequential  Command  Processing 
Conditional  branching  construct 


Looping  construct 
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♦WHILE 

♦ENDWHILE 

♦ JUMP 
♦RETURN 

♦ END 


♦DEFINE 
♦UNDEFINE 
♦SHOW  MACRO 
♦ G2M 
♦M2G 

Built-in 

macrosymbols 


♦RUN 

♦STOP 


♦HELP 

♦ SET 

♦SHOW 

♦ADD 

♦REMARK 

♦UNLOAD 

♦LOAD 


While-looping  construct 


Transfer  control  to  specified  label 
Force  exit  from  command  procedure 
Terminate  definition  of  command  procedure 

Macrosymbol  Directives 

Define  a macrosymbol  or  macrosymbol  array 
Delete  macrosymbol(s) 

Show  macrosymbols 

Define  a macrosymbol  from  a database  entity 

Create  a database  entity  from  the  value  of  a macrosymbol 

Common  constants,  mathematical  functions, 
generic  functions,  reserved  variables,  boolean 
functions,  logical  functions,  string  catenator,  string  matchers, 
and  status  macros 

SuperClip  Directives 
Start  execution  of  another  program 

Stops  RUN-initiated  execution  and  restarts  the  parent  processor 
General  Directives 

Lists  information  from  NICE  HELP  file 
Sets  specified  NICE  control  parameters 
Shows  specified  NICE  control  parameters 
Redirects  input  to  a text  file 
Print  remark  line 

Unload  contents  of  GAL  library  to  an  ASCII  file 
Load  contents  of  GAL  library  from  an  ASCII  file 
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1.2  Executing  Processors 

There  are  two  types  of  analysis  modules,  or  processors,  associated  with  the  Testbed;  in- 
ternal processors,  which  have  been  installed  as  part  of  the  macroprocessor,  and  external 
processors.  Either  type  of  processor  may  be  executed  using  the  macroprocessor  execute 
command,  [XQT.  The  user  merely  appends  the  processor  name  to  the  [XQT  and  the  named 
processor  will  begin  execution.  For  example, 

[XQT  INV 

will  start  the  execution  of  the  processor  INV.  In  order  to  use  this  method  of  execution 
for  external  processors,  the  executable  version  of  the  processor  must  reside  in  the  default 
directory  being  used  by  the  macroprocessor  or  in  other  pre-defined  directories  depending 
on  computer  system  syntax.  In  addition,  the  name  of  an  external  processor  cannot  be  the 
same  as  the  name  of  any  internal  processor. 

External  processors  may  also  be  executed  using  the  *RUN  directive.  When  this  directive 
is  used,  a full  pathname  may  be  given  so  that  external  processors  may  be  kept  anywhere. 
For  example,  under  the  VMS  operating  system, 

*RUN  duaO: [testbed. extp] INVX 

will  begin  execution  of  processor  INVX,  located  in  duaO:  [testbed. extp] . 

Once  a processor  (internal  or  external)  is  running,  it  will  begin  to  accept  input  according 
to  the  requirements  of  the  individual  processor  as  described  in  Chapters  4 through  14  of 
the  CSM  Testbed  User’s  Manual  (Ref.  1-1).  The  processor  will  continue  accepting  input 
until  either  another  [XQT,  a STOP,  or  a *ST0P  is  encountered.  If  a STOP  occurs,  execution 
will  proceed  to  completion  of  the  processor’s  assigned  task  after  which  the  processor  named 
on  the  next  [XQT  command  begins  execution.  If  an  [XQT  occurs,  execution  will  proceed  to 
completion  of  the  processor’s  assigned  task  after  which  the  processor  named  on  that  last 
[XQT  begins  execution.  A *STOP  terminates  processor  execution  immediately. 

The  following  runstream  provides  an  example  of  processor,  macroprocessor,  and  CLIP  in- 
teraction. The  linear,  static  analysis,  a very  simple  example,  with  one  procedure  definition, 
has  been  taken  from  the  demonstration  problem  set  library.  The  procedure  is  defined  so 
that  the  *D0  directive  may  be  used  in  defining  joint  locations  (recall  that  the  *D0  directive 
may  only  be  used  within  a command  procedure).  Note  also  that  the  procedure  is  com- 
pletely defined  before  it  has  been  called.  This  is  an  absolute  requirement  - procedures 
must  be  defined  before  they  are  called. 
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♦procedure  demol 
♦open  1 demol. 101  /new 
[xqt  TAB 
START  5 

JOINT  LOCATIONS 
♦do  $i  = 1,5 

node  x y z 

<$i>  0.  0.  <10  .*<$i» 


. Directives 

. Macroprocessor  command  to  execute  TAB 
. Processor  TAB  input 

. Directive  to  generate  TAB  input 
. Comment 
. TAB  Input 


♦enddo 

MATERIAL  CONSTANTS 

1 10.E+6  .3  .101  . IE-4 
BEAM  ORIENTATIONS 
11111. 

E21  SECTION  PROPERTIES 
TUBE  1 2.  2.25 
CONSTRAINT  DEFINITION  1 
ZERO  123456 
1 

[xqt  ELD 
E21 
1 2 

2 3 

3 4 

4 5 

[xqt  TOPO 
[xqt  E 
[xqt  EKS 
[xqt  K 
[xqt  INV 
ALPHA 

CASE  TITLES 
1> TRANS VERSE  LOAD 
2’ AXIAL  LOAD 
SYSVEC 

APPLIED  FORCES 
CASE  1 
1=2 
J=5 
1000. 

CASE  2 
1=3 
J=5 
10000. 

[xqt  SSOL 
[xqt  GSF 
[xqt  PSF 
stop 

♦end 


. Directive  to  end  input  loop 
. Direct  TAB  input 


. Macroprocessor  command  to  execute  ELD 
. Direct  ELD  Input 


. Macroprocessor  command  to  execute  TOPO 
. Macroprocessor  command  to  execute  E 
. Macroprocessor  command  to  execute  EKS 
. Macroprocessor  command  to  execute  K 
. Macroprocessor  command  to  execute  INV 
. Direct  AUS  input 


. Macroprocessor  command  to  execute  SSOL 
. Macroprocessor  command  to  execute  GSF 
. Macroprocessor  command  to  execute  PSF 
. Macroprocessor  command  to  exit 
. Directive  denoting  procedure  end 


♦call  demol 
[xqt  exit 


. Directive  calling  procedure  demol 

Macroprocessor  command  to  end  execution 
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It  is  important  to  note  that  while  directives  may  be  used  to  generate  input  data,  the 
directives  themselves  do  not  provide  input  to  the  processors.  The  *D0  directive,  used  in 
the  JOINT  LOCATIONS  subprocessor  of  processor  TAB,  provides  the  user  with  a means  of 
automatically  generating  TAB  input;  the  line  containing  the  *do  $i  = 1,5  provides  no 
information  to  processor  TAB  but  is  meaningful  to  CLIP.  The  result  of  executing  this  *D0 
directive  is  to  produce  five  input  lines  for  consumption  by  processor  TAB. 
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1.3  Runstream  Organization 

While  the  Testbed  is  highly  modular,  certain  processors  do  depend  on  information  gener- 
ated by  other  processors,  thus  there  is  some  degree  of  interdependence  among  the  installed 
processors.  In  many  cases,  the  order  in  which  processors  must  be  executed  is  the  same 
as  the  order  in  which  they  appear  in  the  CSM  Testbed  User’s  manual  (ref.  1-1);  this  is 
not  entirely  true  when  using  one  or  more  of  the  independent  element  processors.  The 
following  section  provides  a template  for  performing  a linear  static  analysis  using  one  or 
more  independent  element  processors  (Section  1.3.1). 

1.3.1  RUNSTREAM  FOR  INDEPENDENT  ELEMENT  PROCESSORS 

The  generic  element  processor  template  was  developed  to  provide  greater  flexibility  to 
element  developers.  It  does  however,  add  a level  of  complexity  to  the  analysis,  even  to  a 
simple  linear,  static  analysis.  This  complexity  is  kept  hidden  to  the  average  user  by  the  use 
of  a “cover  procedure.”  The  procedure  name  is  ES  and  details  of  its  use  may  be  found  in 
reference  1-4.  Essentially,  procedure  ES  manages  the  execution  of  the  independent  element 
processors,  ESi. 

Listed  below  is  the  order  of  processor  and  procedure  execution  for  a linear  static  analysis 
using  one  or  more  of  the  independent  element  processors.  Following  the  list  is  an  example 
(the  same  example  used  in  the  previous  section)  which  calls  procedure  ES. 

1.  Procedure  ES.  Call  procedure  ES  to  define  element  parameters  and  several  global 
macrosymbols  which  may  be  used  to  automate  the  definition  of  joint  locations  and 
element  connectivity.  This  call  must  be  made  for  each  different  element  type  in  the 
model,  regardless  of  the  number  of  element  processors  used. 

2.  Processor  TAB.  Define  joint  locations,  constraints,  reference  frames. 

3.  Processor  AUS.  Build  tables  of  material  and  section  properties. 

4.  Processor  LAU.  Form  constitutive  matrix. 

5.  Processor  ELD.  Define  elements.  Element  definitions  include  element  connectivity, 
element  material  reference  frame  number,  element  section  type  number. 

6.  Processor  E.  Initialize  element  datasets;  create  the  dataset  which  will  contain  all 
important  element  information  ( e.g .,  intrinsic  coordinates,  element-to-global  transfor- 
mations, intrinsic  stiffness  matrices). 

7.  Procedure  ES.  Initialize  element  matrices. 

8.  Procedure  ES.  Calculate  element  intrinsic  stiffness  matrices. 

9.  Processor  RSEQ  or  PFM.  Resequence  nodes  for  minimum  total  execution  time. 

10.  Processor  TOPO.  Form  maps  which  guide  the  assembly  and  factorization  of  system 
matrices. 
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11.  Processor  K.  Assemble  system  stiffness  matrix. 

12.  Processor  INV.  Factor  system  stiffness  matrix. 

13.  Processor  AUS.  Create  applied  nodal  loading. 

14.  Processor  SSOL.  Solve  for  static  displacements. 

15.  Procedure  ES.  Calculate  element  stress  resultants. 

16.  Post-process  using  any  of  the  following  processors:  VPRT,  PRTE,  PLOT,  CONT, 

T2PT. 

1.3.2  EXAMPLE  RUNSTREAM  • 

The  following  runstream  provides  an  example  of  a very  simple  linear  static  analysis.  The 
problem  is  to  calculate  the  stress  in  an  isotropic  flat  plate  subjected  to  a uniform  end- 
shortening. One-fourth  of  the  plate  is  modeled  and  symmetry  boundary  conditions  are 
applied. 


•set  echo=off  • Do  not  ®cho  lnPut 

•add  [testbed .proclib] GENUTIL . PRC  . ADD  file  containing  procedure  ES 

•open/new  1 , f lat.plate  • Open  data  library 

•def/a  es_name  ==  »EX91'  . Element  name 

•def/a  es.proc  ==  ’ESI*  . Element  processor  name 


•call  ES  ( function  — 'DEFINE  ELEMENTS': 
es.name  = <es_name/p>) 

[xqt  TAB 

START  25  6 
JOINT  LOCATIONS 

1 0.0  0.0  0.0  2.5  0.0 

S 0.0  2.5  0.0  2.5  2.5 

CONSTRAINT  DEFINITION  1 
symm  plane=l 
symm  plane=2 
zero  3 : 1 

nonzero  1 : 5,25,5 
[xqt  AUS 

•def/e  g = 3.84616e+6 

TABLE(NI=16,NJ=3) : 0MB  DATA  1 1 
1=1, 2, 3, 4, 6, 6,7,8, 9 
j=l:  10.0E+6  .30  10.0E+6  <g>  <g> 


es_proc  = <es_proc/p>;  — 


. Twenty  five  nodes  total,  dof  6 zero 

. Enter  joint  locations 

0.0  515 

0.0 

. Constraints: 

. Plane  2,3  plane  of  symmetry 
. Plane  1,3  plane  of  symmetry 
. Constrain  center  v 
. Apply  displacement  at  x=lx  edge 

. Material  and  Section  properties 


. Table  of  material  properties 

<g>  0.0  0.0  .1 
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. Table  of  section  properties 
TABLE  (Nl=3,SJ=i ,itype-0) ; LAM  0MB  1 1 
J=1  : 2 .1  0.00 


[xqt  LAU  . Generate  constitutive  matrix 

NOTE  — The  macrosymbols  es_nip,  es.nstr,  es_nen,  and  es_opt 

were  all  globally  defined  by  procedure  ES  the  first  time 
the  procedure  was  called. 

[xqt  ELD  • Define  elements 

♦def/i  nst  = «es_nip>*<es_nstr» 

EXPE  <es_name>  <es_nen>  <es__opt>  <es_nen>  6 <nst>  1 101  2 
NSECT  = 1 


1 3 13  11  2 8 12  6 7 1 2 

[xqt  E 

stop 
♦open  1 

♦ call  ES  (function= ’ INITIALIZE* ) 

♦call  ES  (function ’FORM  STIFFNESS/MATL 

[xqt  RSEQ 

[xqt  T0P0 

[xqt  K 

[xqt  INV 

online=2 
[xqt  AUS 

sysvec  : appl  moti 
isl:  J=S,2BfS:  -0.001 

[xqt  SS0L 
stop 
♦open  1 

♦call  ES  (function  = ’FORM  STRESS’;  — 
«8_dis_ds  = STAT.DISP .1.1  ) 

[xqt  VPRT 

format =4 
print  STAT  DISP 
[xqt  PRTE 

reset  segl=7 ,seg2=7 
[xqt  exit 


2 

. Initialize  element  datasets 

. Initialize  element  matrices 
\ . Form  intrinsic  stiffness  matrices 
. Resequence 
. Create  maps 

. Assemble  global  stiffness  matrix 

. Form  applied  loading 

. Solve  for  static  displacements 

. Calculate  element  stresses 
. Print  static  displacements 

. Print  element  stresses 
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1.4  Creating  and  Using  Procedures 
1.4.1  CREATING  A PROCEDURE 

Most  directives  are  so  simple  that  they  may  easily  be  entered  from  a keyboard  terminal. 
One  could  try  to  define  simple  procedures  in  exactly  that  manner.  There  are  two  problems 
with  this  approach: 

1.  A keyed-in  sequence  of  directives  and  commands  is  volatile  and  is  not  saved  unless 
a log  file  has  been  opened,  although  a procedure  definition  is  compiled  and  saved. 

2.  Post-facto  editing  is  impossible;  once  the  return  key  it  pressed,  the  line  is  gone. 

These  disadvantages  become  increasingly  serious  in  long  or  involved  procedures.  The  most 
practical  way  to  create  most  procedures  is  to  use  a text  editor.  Once  the  procedure  source 
text  is  ready  on  a data  file,  it  can  be  inserted  into  the  command  source  stream  with  the 
♦ADD  directive. 


1.4.2  RESIDENCE  OF  CALLABLE  PROCEDURE  ELEMENTS 

When  CLIP  encounters  a *PROCEDURE  directive,  it  enters  directive  mode  and  does  not  exit 
until  the  *END  directive  is  detected.  The  result  of  this  process  is  an  “object”  version  of 
the  procedure,  known  as  a callable  procedure  element.  CLIP  can  store  a callable  procedure 
element  in  one  of  two  residence  media: 

1.  An  ordinary  direct-access  formatted  file  created  through  a FORTRAN  77  OPEN  state- 
ment. All  records  of  such  a file  have  the  same  length  (namely  80  characters)  and 
contain  one  data  line.  The  file  name  is  the  same  as  the  procedure  name  except  on  a 
VMS  VAX  where  a .DAT  is  appended  to  the  procedure  name  to  create  the  file  name. 
For  example,  a procedure  named  GEN_PLATE  will  generate  a file  named  GEN_PLATE.DAT 
on  a VMS  VAX  and  a file  named  GEN.PLATE  on  other  machines.  If  the  *SET  PLIB 
directive  has  not  been  used  prior  to  the  *PR0CEDURE  directive,  direct-access  files  will 
be  created  automatically. 

2.  A data  library  managed  through  the  global  data  manager.  A callable  procedure  is 
stored  as  a text  group.  In  order  to  store  procedures  in  a data  library,  the  *SET  PLIB 
directive  must  be  used. 

The  text  of  a callable  procedure  element  is  basically  a copy  of  the  source  procedure  body, 
prefaced  by  three  linkage  tables.  These  tables  store  argument  names,  argument  default 
text,  labels  (explicit  or  generated)  and  their  locations  within  the  body  of  the  procedure. 
NEVER  tamper  with  a callable  procedure  element.  If  the  procedure  must  be  changed, 
change  the  source  and  reprocess  the  file. 
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1.4.3  USING  A PROCEDURE 

Callable  procedure  elements  are  accessed  through  the  *CALL  directive.  Text  substitution  is 
controlled  by  the  argument  specification  mechanism.  In  a command  procedure  reference, 
text  is  passed  instead  of  addresses  to  data.  The  text  supplied  in  the  *CALL  directive  is 
replaced  before  the  command  is  interpreted.  In  addition,  arguments  not  supplied  in  the 
♦CALL,  assume  the  default  values  given  in  the  ♦PROCEDURE  definition.  A procedure  body 
may  include  calls  to  other  procedures,  or  may  even  call  itself,  with  the  ensuing  call  tree 
extending  down  several  levels. 
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1.5  The  CSM  Testbed  Procedures  Manual 

A GAL  library  which  contains  the  callable  procedure  elements  for  all  of  the  procedures 
described  in  the  following  sections  (2-9)  of  this  manual  is  read-accessible  to  all  Testbed 
users.  Separate  subdirectories  under  the  prc  directory  contain  solution  procedures  (see 
Chapter  3),  model  generation  procedures  (see  Chapter  2),  utility  procedures  (see  Chap- 
ter 6),  and  postprocessing  procedures  (see  Chapter  7).  This  directory  structure  is  the 
same  across  various  computer  systems  with  differences  only  in  the  description  of  the  path 
name  for  each  subdirectory.  On  a VMS  VAX  computer,  this  file  is  referred  to  by  the 
name  CSM_PRC:PROCLIB.GAL;  on  UNIX-type  computers,  it  is  referred  to  by  the  name 
’$CSM_PRC/proclib.gal’.  If  the  user  does  not  need  to  define  any  new  procedures  for 
use  in  a particular  Testbed  runstream,  this  file  can  be  used  as  the  procedure  library  by 
including  the  following  commands  in  the  runstream: 

♦set  plib  = 28 

♦open  28  CSM_PRC:PROCLIB.GAL  /READ  (on  VMS) 

or 

♦open  28  ’ $CSM_PRC/proclib .gal ’ /READ  (on  UNIX) 

The  source  code  for  the  procedures  resides  in  subdirectories  under  the  one  which  contains 
proclib.gal.  These  procedures  are  also  read- accessible  to  all  Testbed  users.  They  can  be 
included  in  the  user’s  private  procedure  library  by  placing  commands  like  the  following  in 
a Testbed  runstream: 

♦set  plib=28 

♦open  28  proclib.gal  /NEW 

♦add  GEN_UTIL : ES . CLP  (on  VMS) 

or 

♦add  * $GEN_UTIL : es . clp ’ (on  UNIX) 

or  alternatively;  on  UNIX: 

cp  $CSM_PRC/proclib.gal  . 

chmod  755  proclib.gal 

testbed 

♦set  plib=28 

♦open  28  proclib.gal 

♦add  local. prc 


or  on  VMS: 

$C0PY  CSM.PRC: PROCLIB.GAL  [] 

$Testbed 

♦set  plib=28 

♦open  28  proclib.gal 

♦add  local. prc 


where  local. prc  is  the  CLAMP  source  file  for  personal  procedure(s). 
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1.6  Examples 

This  section  provides  several  examples  of  the  use  of  procedures.  For  the  sake  of  consistency, 
where  files  are  discussed,  VAX/ VMS  filenames  have  been  used.  The  filename  convention 
used  is  that  a file  with  a *.CLP  extension  contains  a single  procedure,  while  a file  with  a 
*.PRC  extension  contains  multiple  procedures.  The  *ADD  and  the  driving  *CALL  directives 
typically  appear  in  files  with  the  *.COM  extension. 


1.6.1  A SIMPLE  EXAMPLE 

As  an  introductory  example,  an  annotated  procedure  is  presented  which  may  be  used  to 
run  a variety  of  elements  through  the  same  flat  plate  problem.  In  most  applications,  this 
procedure  would  be  kept  in  a file  by  itself  and  that  file  would  be  added  (using  the  *ADD 
directive)  to  a much  shorter  runstream  located  in  an  execution  control  file.  The  procedure 
and  a VAX/ VMS  execution  control  file  are  listed  in  the  following  subsections. 

1.6. 1.1  The  Procedure  File 

The  following  procedure  is  kept  in  a file  named  FLAT_PLATE.CLP. 


•procedure  FLAT_PLATE  ( es_proc  ; es.name  ) 

. ARGUMENTS: 

os_proc:  Independent  element  processor  name 

. e s .name:  Element  name 

♦if  <if eqsf [es.name] ;E43)>  /then 
♦def/i  es.nen  = 4 
♦ else 

•call  ES  ( function  = ’DEFINE  ELEMENTS’;  es_proc  = [es.proc] ; -- 
es_name  = [es.name]) 

♦endif 


[xqt  TAB 

START  25  6 

JOINT  LOCATIONS 

1 0.0  0.0  0.0  2.5 

5 0.0  2.5  0.0  2.5 

CONSTRAINT  DEFINITION  1 
symra  plane- 1 
sy mm  plane=2 
zero  3:  1 

nonzero  1 : 5,25,5 


. Twenty-five  joints;  dof  6 zero 

. Define  joint  locations 

0.0  0.0  515 

2.5  0.0 

. Constraints: 

. Plane  2,3  plane  of  symmetry 

. Plane  1,3  plane  of  symmetry 

. Constrain  center  w 

. Apply  displacement  at  x=lx  edge 
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[xqt  AUS 

*def/e  g = 3.84615e+6 

TABLE(NI=16,HJ=3) : OMB  DATA  1 1 • Define  material  properties 

1=1, 2, 3, 4, 5, 6, 7, 8, 9 

3=1:  10.0E+6  .30  10.0E+6  <g>  <g>  <g>  0.0  0.0  .1 

. Define  Section  properties 

TABLE  (NI=3,NJ=1 ,itype=0) : LAM  OMB  1 1 

J=1  : 2 .1  0.00 

[xqt  LAU  . Forra  constitutive  matrix 

♦if  <if eqs( [es_name] ;E43)>  /then 
reset  SPAR=-1 
♦endif 


[xqt  ELD 

♦ if  <if eqs( [es.name]  ;E43)>  /then 
E43 


Define  elements 


NOTE  — The  macrosymbols  es_nip,  es^nstr,  es_nen,  and  es.opt 

were  globally  defined  by  procedure  ES  the  first  time 
the  procedure  was  called. 

*def/i  net  = «es_nip>*<es_nstr»  . Number  of  stress  resultants 
EXPE  [es.name]  <es_nen>  <es_opt>  <es_nen>  6 <nst>  1 101  2 
♦endif 

NSECT  = 1 

♦if  < <es_nen>  /eq  4 > /then 


1 2 7 6 1 4 4 


♦elseif  < <es_nen>  /eq  9 > /then 


Element  connectivity  for  4-node  elts 


1 3 13  11  2 8 12  6 7122  . Element  connectivity  for  9-node  elts 

♦endif 


[xqt  E 

stop 
♦open  1 


Initialize  all  element  datasets 


♦if  <ifeqs(  [es.name] ;E43)>  /then  . Form  intrinsic  stiffness  matrices: 

[xqt  EKS  • for  E43 

♦else 

♦call  ES  (function^ INITIALIZE*) 

♦call  ES  (function* 'FORM  STIFFIESS/MATL’ ) . for  other  elements 

♦endif 

[xqt  RSEQ  • Resequence 

[xqt  T0P0  • Create  maps 

[xqt  K • Assemble  system  stiffness  matrix 

[xqt  AUS  • Form  applied  loading 

sysvec  ; appl  moti 
i=l : J=6,25,$:  -0.001 
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[xqt  IMV  • Factor  stiffness  matrix 

online =2 

[xqt  SSOL  - Solve  for  static  displacements 

stop 
♦open  1 

. Calculate  stresses 

♦ if  <if  eqs(  [es_name]  ;E43)>  /then  . for  E43 

[xqt  GSF 
[xqt  PSF 

reset  display=2 

♦else  . fo r other  elements 

♦call  ES  ( function  = ’FORM  STRESS’;  es_diB__dB  = STAT .DISP . 1. 1 ) 

♦endif 

[xqt  VPRT  • Print  displacements 

f ormat=4 
print  STAT  DISP 

♦end 


1.6. 1.2  The  Execution  Control  File 

The  file  FLATPLATE.COM,  listed  below,  contains  no  procedures,  only  the  *ADD  and  the  *CALL 
to  the  procedure  defined  in  the  previous  section. 


$ testbed  ! Execute  Testbed  macroprocessor 

♦set  echo  off 

♦ open  1 flat_.plate.101  . Open  data  library 

♦add  flat_plate .clp  . Add  procedure  file  BEFORE  call 

♦call  FLAT_PLATE  ( es_proc=ESl;  es_name=Ex97  ) 

[xqt  EXIT  . Exit  macroprocessor 

1.6.2  MACROSYMBOL  USAGE  EXAMPLE 

The  runstream  described  in  this  section  still  contains  only  one  procedure;  that  procedure  is 
somewhat  more  complicated  than  the  procedure  of  the  first  section  although  the  problem 
to  be  solved  is  the  same.  The  number  of  elements  along  x and  y have  been  parameterized 
to  allow  for  mesh  convergence  studies  for  the  various  elements.  The  logic  of  the  procedure 
remains  the  same;  there  are  simply  more  macrosymbol  definitions.  The  procedure  and  the 
execution  control  file  are  listed  in  the  following  subsections. 

1.6. 2.1  The  Procedure  File 

The  following  procedure  is  kept  in  a file  named  FLAT-PLATE.CLP. 

♦procedure  FLAT_PLATE  ( ee_proc=ESl;  es_name=Ex97;-~  ) 
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NEL.x  ; NEL.y  ) 


ARGUMENTS: 


es_proc: 
e s .name : 
NEL.x: 
NEL.y : 


Independent  element  processor  name 
Element  name 

Number  of  elements  in  the  x direction 
Number  of  elements  in  the  y direction 


♦if  <if eqs ( [es.name] ;E43)>  /then 
♦def/i  es.nen  = 4 
♦else 

♦call  ES  ( function  = 'DEFINE  ELEMENTS';  es_proc  = [es.proc] ; -- 
es.name  = [es.name] ) 

♦endif 


Define  necessary  macrosymbols 

♦if  « es.nen  > /eq  4 > /then 

♦def/i  nn.x  = «[NEL_x]>  + 1 > 
♦def/i  nn_y  = <<[NEL_y]>  + 1 > 
♦def/i  nn.total  = «nn_x>+<nn_y» 
♦elseif  <<  es.nen  > /eq  9 > /then 

♦def/i  nn.x  = <2^<[NEL_x]>  + 1 > 
♦def/i  nn.y  = <2^<[NEL_y]>  + 1 > 
♦def/i  nn.total  = «nn.x>*<nn_y» 
♦endif 


If  4-node  elements  are  used: 
. Num.  nodes  in  x-direction 

. Num.  nodes  in  y-direction 

. Num.  nodes  total 
If  9-node  elements  are  used: 
. Num.  nodes  in  x-direction 

. Num.  nodes  in  y-direction 

. Num.  nodes  total 


[xqt  TAB 

START  <nn_total>  6 
JOINT  LOCATIONS 

1 0.0  0.0  0.0  2.5  0.0 

<nn_x>  0.0  2.5  0.0  2.5  2.5 

CONSTRAINT  DEFINITION  1 
ay mm  plane=l 
symra  plane=2 
zero  3 : 1 

nonzero  1 : <nn_x>,<nn_total>,<nn. 
[xqt  AUS 


. Twenty-five  joints;  dof  6 zero 

. Define  joint  locations 

0.0  <nn_x>  1 <nn_y> 

0.0 

. Constraints 

. Plane  2,3  plane  of  symmetry 
. Plane  1,3  plane  of  symmetry 
. Constrain  center  w 

_x>  . Apply  displacement  at  x=lx  edge 


♦def/e  g = 3.84615e+6 

TABLE(NI=16,NJ=3):  0MB  DATA  1 1 . Define  material  properties 

I=i, 2, 3, 4, 6, 6,7, 8, 9 

J=l:  10.0E+6  .30  10.0E+8  <g>  <g>  <g>  0.0  0.0  .1 

. Define  Section  properties 

TABLE  (NI=3 ,NJ=1 ,itype=0) : LAM  0MB  1 1 
J=1  : 2 .1  0.00 
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[xqt  LAU  • Form  constitutive  matrix 

♦if  <ifeqs( [e 8. name] ; E43)>/  then 
reset  SPAR=-1 
♦endif 

[xqt  ELD 

♦if  <if eqs( [es_name] ; E43)>/  then 
£43 
♦else 

. NOTE  — The  macrosymbols  es_nip,  es_nstr,  es_nen,  and  es_opt 

. were  globally  defined  by  procedure  ES  the  first  time 

. the  procedure  was  called. 

♦def/i  nst  = <<es_nip>*<es_nstr»  . Number  of  stress  resultants 
EXPE  [es_name]  <es_nen>  <es_opt>  <es_nen>  6 <nst>  1 101  2 
♦endif 

NSECT  = 1 

♦if  < <es_nen>  /eq  4 > /then 

. Use  4-node  element  mesh  generator 

♦def/i  jl  = 1 
♦def/i  j2  = 2 
♦def/i  j3  = «j2>+<nn_x» 

♦def/i  j4  = «jl>+<nn_x» 

. Element  connectivity  for  4-node  elts 
<jl>  < j2>  <j3>  <j4>  1 <[NEL_x] > < [NEL_y] > 

♦elseif  < <es_nen>  /eq  9 > /then 

. Use  9 -node  element  mesh  generator 

♦def/i  jl  = 1 
♦def/i  j 5 = 2 

♦def/i  j2  = 3 

♦def/i  j8  = <<jl>  + <nn_x» 

♦def/i  j 9 = <<j5>  + <nn_x» 

♦def/i  j6  = << j2>  + <nn_x» 

♦def/i  j4  = «j8>  + <nn_x» 

♦def/i  j7  = « j9>  + <nn_x» 

♦def/i  j3  = «j6>  + <nn_x» 

. Element  connectivity  for  9-node  elts 
<jl>  <j2>  <j3>  <j4>  <j5>  <j6>  <j7>  <j8>  <j9>  1 <[NEL_x]>  <[HEL_y]> 
♦endif 

[xqt  E • Initialize  all  element  datasets 

stop 
♦open  1 

♦if  <ifeqs( [es_name] ; E43)>/  then  . Form  intrinsic  stiffness  matrices 

[xqt  EKS  • for  E43 

♦else 

♦call  ES  (function=»IHITIALIZE>) 
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♦call  ES  (function= •FORM 
♦endif 
[xqt  RSEQ 
[xqt  TOPO 
[xqt  K 
[xqt  AUS 

sysvec  : appl  nioti 

i=l : J=<nn_x> ,<nn_total>,<nn_x> : 

[xqt  INV 

online=2 
[xqt  SSOL 
stop 
♦open  1 

♦if  <ifeqs( [es.name] ; E43)>/  then 
[xqt  GSF 
[xqt  PSF 

reset  display=2 

♦ else 

♦call  ES  ( function  = ’FORM  STRESS’; 
♦endif 
[xqt  VPRT 

f ormat=4 
print  STAT  DISP 

♦end 


for  other  elements 

. Resequence 
. Create  maps 

. Assemble  system  stiffness  matrix 
. Form  applied  loading 

-0.001 

. Factor  stiffness  matrix 
. Solve  for  static  displacements 


. Calculate  stresses 
for  E43 


. for  other  elements 
es_dis_ds  = STAT. DISP. 1.1  ) 

. Print  displacements 


STIFFNESS/MATL') 


1.6. 2. 2 The  Execution  Control  File 

The  file,  FLATPLATE.COM,  listed  below  contains  no  procedures,  only  the*ADD  and  the  *CALL 
to  the  procedure  defined  in  the  previous  section. 


$ testbed 

♦set  echo  off 

♦open  1 f lat_plate . 101 

♦add  flat .plate .clp 

♦call  FLAT.PLATE  ( es_proc=ESl; 


» Execute  Testbed  macroprocessor 
. Open  data  library 
. Add  procedure  file  BEFORE  call 
es_name=Ex97 ; — 


Nel_x=4;  Hel_y=4  ) 


[xqt  EXIT  • Exit  macroProce88or 

One  may  notice  that,  except  tor  the  two  extra  arguments  (HEL.X  and  MX.,)  in  the  .CALL 
directive,  this  file  is  the  same  as  the  FLATPLATE.COM  file  of  the  last  section. 
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1.6.3  A MULTIPLE  PROCEDURE  EXAMPLE 

In  many  cases,  it  may  be  to  the  user’s  advantage  to  build  and  maintain  a procedure  library 
which  may  be  used  for  classes  of  problems.  For  example,  in  a solution  library,  one  may 
keep  procedures  for  providing  linear  static  solutions,  buckling  eigenvalues,  and  nonlinear 
static  solutions.  In  this  section,  the  procedure  of  the  previous  section  is  split  up  into  three 
procedures  - PLATE_MODEL,  PLATE-BC,  and  L . STATIC  - which  generate  the  model,  generate 
the  boundary  conditions,  and  perform  the  linear,  static  solution  respectively.  The  three 
procedures  are  kept  in  two  files:  L.STATIC.CLP  (contains  only  procedure  L-STATIC)  and 
FLATPLATE . PRC  (contains  PLATE-MODEL  and  PLATE-BC).  Finally,  the  file  FLATPLATE.COM 
uses  the  *ADD  directive  to  add  the  two  files  and  the  *CALL  directive  to  call  the  procedures. 

1. 6.3.1  The  Model  Generation  Procedures 

The  following  two  procedures,  PLATE-MODEL  and  PLATE_BC,  are,  for  the  sake  of  the  example 
to  be  kept  in  a file  named  FLATPLATE. PRC.  Note  that  the  boundary  conditions  and  applied 
loads  are  both  in  the  procedure  PLATE.BC  and  that  if  other  boundary  conditions  were 
desired,  this  procedure  could  be  decoupled  from  the  model  generation  procedure  and  stored 
in  a separate  file.  In  that  case,  the  procedure  name  could  be  passed  as  an  argument  to 
PLATE-MODEL  which  would  then  call  the  passed  name  instead  of  PLATE-BC. 

•procedure  PLATE-MODEL  ( es_proc  ; ea.name  j — 

HEL-X  ; MEL_y  ) 


ARGUMENTS : 


es-proc : 
e Byname : 
NEL_x : 
NEL_y : 


Independent  element  processor  name 
Element  name 

Number  of  elements  in  the  x direction 
Number  of  elements  in  the  y direction 


♦if  <if eqs ( [es_name] ; E43)>  /then 
♦def/i  es_nen  = 4 
♦ else 

•call  ES  ( function  = 'DEFINE  ELEMENTS';  es.proc  = [es_proc] ; -- 
e s .name  = [es_name] ) 


♦endif 


. Define  necessary  macrosymbols 

♦if  « es_nen  > /eq  4 > /then 

♦def/i  nn_x  = «[NEL_x]>  + 1 > 
♦def/i  nn_y  = «[NEL_y]>  + 1 > 
♦def/i  nn_total  = «nn_x>*<nn_y» 
♦elseif  « es_nen  > /eq  9 > /then 

♦def/i  nn_x  = <2*<[NEL_x]>  + 1 > 
♦def/i  nn_y  = <2*<[NEL_y]>  + 1 > 
♦def/i  nn_total  = «nn_x>*<nn_y» 
♦endif 


If  4-node  elements  are  used: 
. Num.  nodes  in  x-direction 

. Num.  nodes  in  y-direction 

. Num.  nodes  total 
If  9-node  elements  are  used: 
. Num.  nodes  in  x-direction 

. Num.  nodes  in  y-direction 

. Num.  nodes  total 
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[xqt  TAB 

START  <nn_total>  6 . Twenty-five  joints;  dof  6 zero 

JOINT  LOCATIONS  . Define  joint  locations 

1 0.0  0.0  0.0  2.5  0.0  0.0  <nn_x>  1 <nn_y> 

<nn_x>  0.0  2.5  0.0  2.5  2.5  0.0 

. Call  boundary  condition  procedure 

♦call  PLATE.BC  ( nn_x  = <nn_x>;  — . to  set  up  loads  and  b.c.’s 

nn_total  = <nn_total>  ) 

[xqt  AUS 

♦def/e  g = 3 . 84615e+6 

TABLE(NI=16 ,NJ=3) : 0MB  DATA  1 1 . Define  material  properties 

1=1. 2. 3, 4, 5, 6,7, 8, 9 

J=1 : 10.0E+6  .30  10.0E+6  <g>  <g>  <g>  0.0  0.0  .1 
. . Define  Section  properties 

TABLE  (NI=3 , NJ=1 ,itype=0) : LAM  0MB  1 1 
J=1  : 2 .1  0.00 

[xqt  LAU  . Form  constitutive  matrix 

♦if  <ifeqs( [e s_name] ; E43)>  /then 
reset  SPAR=-i 
♦endif 

[xqt  ELD 

♦if  <ifeqs( [es_name] ; E43)>  /then 
E43 
♦else 

. NOTE  — The  ^nacro  symbols  es_nip,  es_nstr,  es_nen,  and  es.opt 

. were  globally  defined  by  procedure  ES  the  first  time 

. the  procedure  was  called. 

♦def/i  nst  = «es_nip>*<es_nstr»  . Number  of  stress  resultants 
EXPE  [es_name]  <es_nen>  <es_opt>  <es_nen>  6 <nst>  1 101  2 
♦endif 
NSECT  = 1 

♦if  < <es_nen>  /eq  4 > /then 

. Use  4-node  element  mesh  generator 

♦def/i  jl  = 1 
♦def/i  j2  = 2 
♦def/i  j3  = «j2>+<nn_x» 

♦def/i  j4  = «ji>+<nn_x» 

. Element  connectivity  for  4-node  elts 
<jl>  <j2>  <j3>  <j4>  1 < [NEL_x] > <[NEL„y]> 

♦elseif  < <es_nen>  /eq  9 > /then 

. Use  9-node  element  mesh  generator 


. Define  elements 
. E43  elements 
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♦def/i  jl 
♦def/i  jB 
♦def/i  j2 
♦def/i  j8 
♦def/i  j9 
♦def/i  jo 
♦def/i  j4 
♦def/i  j7 
♦def/i  j3 


= 1 
= 2 
= 3 

= «jl> 
= «j5> 
= «j2> 
= << j 8> 
= «j9> 
= «j6> 


+ <nn_x» 
+ <nn_x» 
+ <nn_x» 
+ <nn_x>> 
+ <nn_x» 
+ <nn_x» 


. Element  connectivity  for  9-node  elts 


<jl>  <j2>  <j3>  <j4>  <j5>  <j6>  <j7>  <j8>  <j9>  1 <[NEL_x]>  <[NEL_y]> 


♦endif 

♦ end 


♦procedure  PLATE_BC  ( nn_x  ; nn_total  ) 
[xqt  TAB 

CONSTRAINT  DEFINITION  1 
symm  plane =1 
ay mm  plane =2 
zero  3:  1 

nonzero  1 : [nn_x] , [nn_total] , 
[xqt  AUS 

syavec  : appl  moti 

i=l:  [nn_x] , [nn_total] , [nn_x] : 

♦end 


. Constraints 

. Plane  2,3  plane  of  symmetry 
. Plane  1,3  plane  of  symmetry 
. Constrain  center  w 
l_x]  - Apply  displacement  at  x=lx  edge 

. Form  applied  loading 

-0.001 


1.0.3. 2 The  Linear  Static  Analysis  Procedure 

The  following  procedure  performs  the  linear  static  analysis  for  models  using  either  SPAR 
E43  elements  or  elements  implemented  using  the  generic  element  processors.  The  procedure 
will  be  kept  in  a file  named  L-STATIC.CLP. 

♦procedure  L.STATIC  (es.name) 

[xqt  E . Initialize  all  element  datasets 

stop 
♦open  1 
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<if eqs ( [es_name] ; E43)>  /then  . Form  intrinsic  stiffness  matrices 

[xqt  EKS  • ,or  E43 

♦ else 

♦call  ES  (function= ’INITIALIZE’ ) 

♦call  ES  (functions FORM  STIFFNESS/MATL’)  . for  other  elements 


♦endif 
[xqt  RSEQ 
[xqt  TOPO 
[xqt  K 
[xqt  INV 

online=2 
[xqt  SSOL 
stop 
♦open  1 

♦if  <if eqs( [es_name] ; E43)>  /then 
[xqt  GSF 
[xqt  PSF 

reset  display=2 

♦ else 

♦call  ES  ( function  = ’FORM  STRESS’ 
♦endif 
[xqt  VPRT 

f ormat=4 
print  STAT  DISP 

♦end 


. Resequence 
. Create  maps 

. Assemble  system  stiffness  matrix 
. Factor  stiffness  matrix 

. Solve  for  static  displacements 


Calculate  stresses 
for  E43 


. for  other  elements 
es_dis_ds  = STAT. DISP . 1 . 1 ) 

. Print  displacements 


1.6. 3. 3 The  Execution  Control  File 

The  following  file,  FLATPLATE.COM,  contains  no  procedures;  it  adds  the  two  procedure  files 
and  calls  the  model  generation  and  analysis  procedures,  PLATE-MODEL  and  L-STATIC. 


$ testbed  ! Execute  Testbed  macroprocessor 

♦set  echo  off 

♦open  1 flat .plate. 101  • Open  data  library 

♦add  flatplate.prc  • Add  procedure  files  BEFORE  calls 

♦add  l.static.clp 

. Generate  model 

♦call  PLATE_M0DEL  ( es_proc=ESl;  es_name=Ex97 ; — 
nel_x=4;  nel_y=4  ) 

. Solve  for  static  solution 

♦call  L-STATIC  ( es_name=Ex97  ) 

[xqt  EXIT  • Exit  macroprocessor 

It  should  be  emphasized  that  the  procedure  L-STATIC  may  be  used  for  any  linear,  static 
analysis  using  either  the  original  SPAR  elements  or  elements  implemented  using  one  or 
more  of  the  Independent  Element  Processors.  The  procedure  is  not  limited  to  SPAR  E43 
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elements  as  no  element  specific  operations  are  being  performed;  element  specific  operations 
are  performed  in  the  model  definition  procedure(s). 

By  splitting  the  analysis  into  procedures,  the  model  generation  and  solution  have  been 
decoupled  allowing  the  solution  procedure  to  be  used  for  many  different  models.  The 
advantages  of  this  approach  include  the  fact  that  a solution  procedure  need  only  be  written 
once  rather  than  once  for  each  problem.  It  is  highly  recommended  that  the  user  organize 
procedures  in  this  fashion. 
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2.0  Preprocessing  Procedures 

The  five  procedures  documented  in  this  chapter  are  general  modeling  procedures  for  specific 
structural  geometries. 


Table  2.0 

-1  Summary  of  Preprocessing  Procedures 

Procedure  Name 

Preprocessing  Function 

GENJ3EAM 

Generate  1-D  models  of  straight  beams  using  beam 
elements 

GEN.CANTILEVER 

Generate  2-D  models  of  a straight  cantilever  beam 
using  plate/shell  elements.  Using  the  default  values 
for  the  procedure  arguments,  the  straight  cantilever 
beam  problem  from  the  MacNeal-Harder  test  cases  is 
generated. 

GEN_CURVED_BM 

Generate  2-D  models  of  a curved  (circular)  beam  us- 
ing plate/shell  elements.  Using  the  default  values  for 
the  procedure  arguments,  the  curved  beam  problem 
from  the  MacNeal-Harder  test  cases  is  generated. 

GEN .PLATE 

Generates  2-D  models  for  general  quadrilateral 
plates. 

GEN .SHELL 

Generates  2-D  models  for  general  shells  and  curved 
surfaces. 

Preprocessing  Procedures 
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2.1  Procedure  GEN-BEAM 

2.1.1  GENERAL  DESCRIPTION 

This  section  describes  a procedure  which  generates  models  of  a straight  beam  using  one- 
dimensional beam  elements. 
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2.1.2  PROCEDURE  USAGE 

Procedure  GEN -BEAM  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  GEN-BEAM  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  (— ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  GEN-BEAM  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES-PROC 

ES6 

Select  element  processor 

ES-NAME 

E210 

Select  element  within  ELT_PR0C 

NODES-X 

3 

Number  of  nodes  in  x- direction 

LENGTH-X 

10. 

Length  of  beam 

E 

120. 

Young’s  elastic  modulus 

NU 

0. 

Poisson’s  ratio 

AREA 

1.0 

Cross-sectional  area 

INERT-l 

1. 

Principal  moment  of  inertia,  Ii 

INERT-2 

10. 

Principal  moment  of  inertia,  I2 

INERT-TORSIONAL 

1. 

Uniform  torsion  constant 

BC-PROCEDURE 

BEAM.BC 

Procedure  for  boundary  conditions 

2.1.3  ARGUMENT  DESCRIPTIONS 

2. 1.3.1  AREA 

Cross-sectional  area  of  beam  (default:  1.0). 

2. 1.3.2  BC-PROCEDURE 

Boundary  condition  procedure  name  (default:  CC_BC  for  specified  forces;  CCD-BC  for  spec- 
ified displacements).  The  term  “boundary  conditions”  refers  both  to  displacement  con- 
straints and  applied  loading.  Procedures  CC_BC  and  CCD-BC  both  have  the  same  zero 
displacement  constraints.  The  only  difference  is  that  the  former  procedure  applies  axial 
forces  to  the  simply  supported  edge,  while  the  latter  procedure  prescribes  non-zero  axial 
displacements  on  that  edge.  The  argument  BC-PROCEDURE  permits  you  to  to  supply  your 
own  boundary  condition  procedure,  but  keep  in  mind  that  this  may  drastically  change  the 
problem  definition,  and  hence  invalidate  most  of  the  discussion  under  Section  2.1.1. 
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2. 1.3. 3 E 

Young’s  elastic  modulus  (default:  120.0). 

2. 1.3. 4 ES_NAME 

Element  name  (default:  E210).  This  is  the  name  of  the  specific  beam-element  type  you  wish 
to  select,  within  the  element  processor  defined  by  argument  ES_PR0C.  The  default  element 
type,  E210,  is  a 2-noded  beam  element  implemented  in  processor  ES6,  and  described  in 
The  Computational  Structural  Mechanics  Testbed  User’s  Manual  (see  ref.  2.1-1). 

2. 1.3. 5 ES-PROC 

Element  Processor  (default:  ES6)  This  is  the  name  of  the  structural  element  (ES)  processor 
that  contains  the  shell  element  type  you  wisli  to  employ  in  the  model.  The  default  shell- 
element,  processor  ES6,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual. 

2. 1.3.0  INERT-1 

Principal  moment  of  inertia  (default:  1.0). 

2. 1.3. 7 INERT-2 

Principal  moment  of  inertia  (default:  10.0). 

2. 1.3.8  INERT-TORSION 
Torsional  constant  (default:  1.0). 

2. 1.3.0  LENGTH JC 

Length  of  the  beam  in  the  x-direction  (default:  10. 0). 

2.1.3.10  NODES-X 

Number  of  nodes  along  beam  length  (default:  3).  Note  that  this  number  should  be  con- 
sistent with  the  number  of  nodes  per  element.  For  example,  NODES-X  can  be  any  number 
greater  than  1 for  2-node  beam  elements,  whereas  it  must  be  an  odd  number  greater  than 
1 for  3-node  beam  elements. 

2.1.3.11  NNODES-C 

Number  of  circumferential  nodes  (default:  7).  This  is  the  number  of  nodes  you  wish 
to  have  along  the  circumferential  direction  of  the  cylindrical  shell  model,  t.e.,  along  15 
degrees  of  circular  arclength.  Note  that  this  number  should  be  consistent  with  the  number 
of  nodes  per  element.  For  example,  NNODES-C  can  be  any  number  greater  than  1 for  4- 
node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for  9-node 
quadrilateral  elements. 
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2.1.3.12  NU 

Poisson’s  ratio  (default:  0.0). 

2.1.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  GEN .BEAM  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 

♦procedure  GEN.BEAM  ( es.proc  = ES6  ; es.name  = E210  ; — 

nodes.x  =3  ; — 

length.x  =10.  ; — 

E=120.;  PR=0 . ; area  =1.0  ; — 

inert_l=l.  ; inert_2=10.  ; inert _t orsion= 1 . ; — 

BC.PROCEDURE  = BEAM.BC  ) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  ».e., 

♦call  GEN .BEAM 


2.1.5  LIMITATIONS 


2.1.6  ERROR  MESSAGES  AND  WARNINGS 

None. 


2.1.7  PROCEDURE  FLOWCHART 


2.1.8  PROCEDURE  LISTING 

♦procedure  GEN.BEAM  ( ee.proc  = ES6  ; ee.nane  = E210  ; — 

nodes.x  = 3 ; — 

length.x  =10.  ; — 

E=120. ; PR=0.  ; area  = 1.0  ; — 

inert. 1=1 . ; inert.2=10.  ; inert.torsion=l . ; 

BC.PROCEDURE  = BEAM.BC  ) 

♦call  ES.DEFN  ( es.proc= [es.proc] ; es.name= [es.name] 

[XQT  TAB 

♦del  nodes. tot  = < [nodes.x]  > 
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START  <nodes_tot> 
JLOC 


. DEFINE  NODAL  COORDINATES 


*def/«  dx  = < [length.xj  / ( [nodws.x] -1) 
♦def/i  node  = 0 
♦def/e  x =0. 

♦do  $i  = 1, [nodes. x] 

♦del  node  = < <node>  ♦ 1 > 

<node>  <x>,  0.#  0. 

♦del  x = < <x>  ♦ <dx>  > 

♦enddo 


NODE  DEFINITION 


DEFINE  FICTITIOUS  ELASTIC  MATERIAL  PROPERTIES 


MATC 

1 [E]  [PR] 

BEAM  FACE  ORIENTATION  AND  PROPERTIES 
MREF 

F0RMAT=2 

110.  1.0  0. 


GIVN  1 [inert.l]  0.  [inert_2]  0.  [area]  [inert.torsion] 

DEFINE  LOADS  AND  BOUNDARY  CONDITIONS 

•call  [BC.PROCEDURE]  ( nnx  = [nodea.x]  ; — 

nen  = <ea_nen>  ) 


GENERATE  ELEMENTS 

[XQT  ELD 

<es_expe_cmd> 

NSECT  = 1 

Define  element  nodal  connectivity 
•call  BM_ELT_CONN  (nnx= [nodes.x] ; nen=<es_nen>) 


♦ end 

. =DECK  BM.ELT.CONN 

♦procedure  BM.ELT.CONN  ( nnx ; nen  ) 


. Define  Element  Connectivity 


Record  for 


ELD  Processor 
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• if  < [nen]  /eq  2 > /then 

♦do  $ix  = 1,  <[nnx]-l> 

♦def/i  nl  = < $ix  > 

♦def/i  n2  = < <nl>  + 1 > 


<nl>  <n2> 

SSSS833SSS 

♦enddo 

•elseif  < [nen]  /eq  3 > /then 

•do  $ix  = 1,  <[nnx]-2>#  2 
♦def/i  nl  * < $ix  > 

•def/i  n2  = < <nl>  ♦ 2 > 
•def/i  n3  = < <n2>  - 1 > 


<nl>  <n2>  <n3> 


•enddo 

•endif 

•end 


2.1.9  REFERENCES 

2.1-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 
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2.2  Procedure  GEN.CANTILEVER 

2.2.1  GENERAL  DESCRIPTION 

This  section  describes  a procedure  which  generates  models  of  a straight  cantilever  beam 
using  two-dimensioned  plate/shell  elements.  Using  the  default  values  for  the  procedure 
arguments,  the  straight  cantilever  beam  problem  from  the  MacNeal-Harder  test  cases  (see 
ref.  2.2-1)  is  generated.  The  model  used  for  the  MacNeal-Harder  cantilever  beam  test 
cases,  is  shown  in  figure  2.2-1. 


y-atxis 


rectangular  elements 


x-axis 


trapezoidal  elements 


a A9 

^ 7 / / ~ / zn 

parallelogram  elements 

DIMENSIONS  : h =»  .2  , L = 6 , Thickness  = .1 

MATERIAL  PROPERTIES  : E-1.0  X107  . v = .30 


Figure  2.2-1  Generic  2-D  Cantilever  Beam  Finite  Element  Models. 
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2.2.2  PROCEDURE  USAGE 

Procedure  GEN.CANTILEVER  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive,  and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  ar- 
guments are  order-independent,  and  most  have  default  values  thus  making  them  optional. 
The  formal  syntax  is  as  follows: 

•call  GEN.CANTILEVER  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  GEN.CANTILEVER  are  summarized  in  the  following 
table,  along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults 
are  generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to 
this  rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES.PR0C 

ES2 

Select  element  processor 

ES  JfAME 

EX41 

Select  element  with  ELT.PR0C 

ES.PARS 

0.0 

Set  element-research  parameters 

AUTO_DOF_SUP 

true 

Automatic  d.o.f.  suppression 

DRILLINGJDOF 

false 

NODESJC 

7 

Number  of  nodes  in  x-direction 

NODES.Y 

2 

Number  of  nodes  in  y-direction 

LENGTHJt 

6. 

> Beam  length  (x-direction) 

LENGTH.Y 

.2 

Beam  width  (y-direction) 

E 

1.E7 

Young’s  elastic  modulus 

NU 

.3 

Poisson’s  ratio 

THICKESS 

.1 

Thickness 

DISTORT 

.07071 

BCJPROCEDURE 

CANTILEVER  JC 

Procedure  for  boundary  conditions 

2.2.3  ARGUMENT  DESCRIPTIONS 
2.2.3. 1 AUTQ-DQF-SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffnesses  (see 
argument  DRILLING _D0F). 
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2.2. 3. 2 BC -PROCEDURE 

Boundary  condition  procedure  name  (default:  CANTILEVER-BC) . The  term  “boundary  con- 
ditions” refers  both  to  displacement  constraints  and  applied  loading.  The  argument 
BC_PROCEDURE  permits  the  users  to  supply  their  own  boundary  condition  procedure,  but 
keep  in  mind  that  this  may  drastically  change  the  problem  definition. 

2. 2. 3. 3 DISTORT 

Distorted  mesh  parameter  (default:  0.07071). 

2.2.3.4  DRILLING-DOF 

Drilling  degree  of  freedom  flag  (default:  <f  alse>).  Drilling  freedoms  are  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  off  forces  all  drilling  freedoms 
in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be  active  — 
unless  they  are  automatically  suppressed  using  use  of  the  AUT0_D0F_SUP  argument.  Note 
that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with  their 
own  surface-normal  directions  (at  nodes),  when  shell  elements  are  assembled  as  facets  ap- 
proximating an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  (e.g.,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLING_DOF  argument  should  be  set  to  <true>  regardless  of  how  AUT0_D0F_SUP  is 
set. 

2. 2. 3. 5 E 

Young’s  elastic  modulus  (default:  1.0  x 107). 

2. 2. 3.0  ES-WAME 

Element  name  (default:  EX41).  This  is  the  name  of  the  specific  shell-element  type  you 
wish  to  select,  within  the  element  processor  defined  by  argument  ES_PR0C.  The  default 
shell-element  type,  EX41,  is  a 4-noded  quadrilateral  element  implemented  in  Processor 
ES2,  and  described  in  The  Computational  Structural  Mechanics  Testbed  User’s  Manual 
(see  ref.  2.2-1). 

2.2.3. 7 ES-PARS 

Element  research  parameters  (default:  0.,  ... ).  This  argument  allows  an  optional  list  of 
element-dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is 
still  undergoing  research  and  refinement. 
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2.2.3.8  ES-PROC 

Element  processor  (default:  ES2)  This  is  the  name  of  the  structural  element  (ES)  processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  processor  ES2,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual. 

2. 2. 3. 9 NODESJC 

Number  of  nodes  along  x-direction  (default:  7).  This  is  the  number  of  nodes  you  wish  to 
have  along  the  axial  direction  of  the  beam  shell  model.  Note  that  this  number  should  be 
consistent  with  the  number  of  nodes  per  element.  For  example,  NODESJC  can  be  any  number 
greater  than  1 for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater 
than  1 for  9-node  quadrilateral  elements. 

2.2.3.10  N0DES_Y 

Number  of  nodes  along  y-direction  (default:  2).  This  is  the  number  of  nodes  you  wish  to 
have  along  the  depth  direction  of  the  beam  shell  model.  Note  that  this  number  should  be 
consistent  with  the  number  of  nodes  per  element.  For  example,  NODES  Jf  can  be  any  number 
greater  than  1 for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater 
than  1 for  9-node  quadrilateral  elements. 

2.2.3.11  NU 

Poisson’s  ratio  (default:  0.3). 

2.2.3.12  THICKNESS 

Beam  thickness  (default:  0.  l). 

2.2.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  GEN_CANTILEVER  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive.  Procedure  arguments  may  be  changed  from  their  default  values  by  including  any 
or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 

•call  GEN.CANTILEVER  ( es.proc  = ES2  ; es_name  = EX41  ; — 

es.pars  * 0.0  ; — 

auto_dof _sup  = <true>  ; — 
drilling_dof  * <false>  ; — 
nodes_x  = 7 ; nodes_y  -2  ; 

length_x  = 6 . ; length.y  - .2  ; 

E*1.E7  ; NU= . 3 ; thickness  * .1  ; — 

distort  *.07071;  — 

BC.PROCEDURE  = CANTILEVERLEVER.BC  ) 
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(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  t'.e., 

♦call  GEN.CANTILEVER 


2.2.5  LIMITATIONS 


2.2.6  ERROR  MESSAGES  AND  WARNINGS 


None. 

2.2.7  PROCEDURE  FLOWCHART 


2.2.8  PROCEDURE  LISTING 

•procedure  GEN.CANTI  ( ee.proc  » ES2  ; es.name  = EX41  ; — 

es.pars  = 0.0  ; — 

auto.dof.sup  = <true>  ; — 

drilling.dof  = <false>  ; — 

nodes.x  = 7 ; nodes. y =2  ; — 

length.x  = «.  ; length.y  = .2  ; — 

E=1.E7  ; NU= . 3 ; thickness  = .1  ; — 

distort  =.07071;  — 

BC.PROCEDURE  = CANTILEVER.BC  ) 

. Register  Element  and  Define  Macros:  ELT.NEN,  ELT.NIP , ELT.NSTR,  etc, 

•call  ES  ( function  = 'DEFINE  ELEMENTS’  ; es.proc  = [es.proc];  — 

es.name  = [es.name]  ; es.pars  = [es.pars]  ) 

[XQT  TAB 

•def  nodes. tot  = < [nodes.x]  * [nodes.y]  > 

START  <nodes.tot> 

JLOC 

. DEFINE  NODAL  COORDINATES 

•def/e  dx  = < [length.x]  / ( [nodes.x]-l)  > 

•def/e  dy  = < [length.y]  / ([nodes.y]-!)  > 

•def/i  node  = 0 
•def/e  y =0. 

•def/e  skew  = < -1.  * [distort]  > 

•def/e  dskew  = < 2.0  * [distort]  / ( [nodes.y] -1)  > 

•do  tj  * 1, [nodes.y] 

•def/e  x =0. 
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♦do  $i  = 1, [nodes. x] 

♦del  node  = < <node>  ♦ 1 > 

<node>  <x>,  <y>,  0.  . NODE  DEFINITION 

♦del  x = < <x>  ♦ <dx>  > 

♦il  < <$i>  /eq  1 > /then 

♦del  x = < <x>  + <skew>  > 

♦endil 

♦il  < <$i>  /eq  < [nodes.x] -1>  > /then 
♦del  x = < [length. x]  > 

♦endif 

♦enddo 

♦del  y = < <y>  + <dy>  > 

♦del  skew  = < <skew>  + <dskew>  > 

♦enddo 

. DEFINE  FICTITIOUS  ELASTIC  MATERIAL  PROPERTIES 

MATC 
1 1.0  .3 

. DEFINE  LOADS  AND  BOUNDARY  CONDITIONS 

•call  [BC_ PROCEDURE]  ( nnx  = [nodes.x]  ; nny  = [nodes.y]  ; — 

nen  = <es_nen>  ; drilling.dof  = [drilling.dof ] ) 

. DEFINE  REAL  KATERIAL/SECTION  PROPERTIES 

[XqT  AUS 

. Build  Table  ol  Material  Data 
TABLE(NI=16,NJ=1) : 0MB  DATA  1 1 

•def/el2.4  G = < [E]  / (2 . *(1 . + [NU] ))  > 

1=1, 2, 3,4, 5, 6 
J=1 

[E]  [NU]  [E]  <G>  <G>  <G> 

. Build  Laminate  Data  Tables 
TABLE(NI=3,NJ=1 , ITYPE=0) : LAM  0MB  1 1 

1=1, 2, 3 . (material.type,  layer.thicXness , angle(deg-) 
jsl;  1 [THICKNESS]  0.0 

[XqT  LAU 

. GENERATE  ELEMENTS 
[XqT  ELD 

Define  number  of  integration  (stress)  points  based  on  element  type 
•def/i  nst  = < <es_nip>*<es_nstr>  > 
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Define  element  attributes 
<ES_EXPE_CMD> 

NSECT  = 1 

Define  element  nodal  connectivity 

♦call  CANTI_ELT_CONN  (nnx=[nodes_x] ; nny= [nodes _y] ; nen=<es_nen>) 

Suppress  DOFs  not  supported  by  elements 

♦if  < [AUTO.DOF.SUP]  > /then 

♦call  ES  ( function  = ’DEFINE  FREEDOMS’  ) 

♦endif 


♦end 

♦procedure  CANTI.ELT.CONN  ( nnx;  nny;  nen  ) 


Define  Element  Connectivity  Record  for  ELD  Processor 


♦if  < [nen]  /eq  4 > /then 
♦do  #iy  = 1,  <[nny]-l> 

♦do  $ix  = 1,  < [nnx] -1> 

♦def/i  nl  = < (<$iy>-l)*[nnx] 

♦def/i  n2  = < <nl>  ♦ 1 > 

♦def/i  n3  = < <n2>  ♦ [nnx]  > 

♦def/i  n4  = < <n3>  - 1 > 


+ <$ix>  > 


<ni>  <n2>  <n3>  <n4> 


♦enddo 


•enddo 


♦elseif  < [nen] 
♦do  $iy  * 1, 
♦do  $ix  = 
♦def/i 
♦def/i 
♦def/i 
♦def/i 
♦def/i 
♦def/i 
♦def/i 
♦def/i 
♦def/i 


/eq  9 > /then 
<[nny]-2>,  2 
1,  <[nnx]-2>,  2 

nl  = < (<$iy>-l)*[nnx]  ♦ <$ix>  > 

n2  = < <nl>  + 2 > 

n3  = < <n2>  ♦ (2*[nnx]>  > 

n4  = < <n3>  - 2 > 

n5  = < <nl>  ♦ 1 > 

nfl  = < <n2>  ♦ [nnx]  > 

n7  = < <n4>  ♦ 1 > 

n8  = < <n«>  - 2 > 

n9  = < <n8>  ♦ 1 > 


<nl>  <n2>  <n3>  <n4>  <n5>  <n6>  <n7>  <n8>  <n9> 
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♦enddo 

♦enddo 

♦endif 

♦end 

2.2.9  REFERENCES 

2.2- 1  MacNeal,  R.  H.;  and  Harder,  R.  L.:  “A  Proposed  Set  of  Problems  to  Test  Finite 

Element  Accuracy,”  Finite  Elements  in  Analysis  and  Design,  Vol.  1, 1985,  pp.  3-20. 

2.2- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 
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2.3  Procedure  GEN_CURVEDJBM 

2.3.1  GENERAL  DESCRIPTION 

This  section  describes  a procedure  which  generates  models  of  a curved  (circular)  beam 
using  two-dimensional  plate/shell  elements.  Using  the  default  values  for  the  procedure 
arguments,  the  curved  beam  problem  from  the  MacNeal-Harder  test  cases  (see  ref.  2.3-1) 
is  generated.  The  MacNeal-Harder  curved  beam  test  case  is  shown  in  figure  2.3-1. 


PROBLEM  Curved  Beam 

DIMENSIONS  : Inner  radius  * 4.12  Outer  radius  * 4.32 

, Thickness  » .1 

MATERIAL  PROPERTIES  : E * 1 X IQ7  v = .25 

30UNDARY  CONDITIONS  : Cantelever  beam  fixed  at  y-0 

LOADING  : Unit  forces  applied  at  free  end  ; 

1)  in-plane  (vertical)  --  y-direction  (case  1) 

2)  out-of-plane  --  c -direction  (case  2) 


Figure  2.3-1  Generic  2-D  Curved  Beam  Problem. 
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2.3.2  PROCEDURE  USAGE 

Procedure  GEN_CURVED_BM  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive,  and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  ar- 
guments are  order-independent,  and  most  have  default  values  thus  making  them  optional. 
The  formal  syntax  is  as  follows: 

♦call  GEN_CURVED_BM  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  GEN_CURVED_BM  are  summarized  in  the  following 
table,  along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults 
are  generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to 
this  rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES_PR0C 

ES2 

Select  element  processor 

ESJIAME 

EX41 

Select  element  within  ELT-PROC 

ES  _PARS 

0.0 

Set  element-research  parameters 

AUT0_D0F_SUP 

<true> 

Automatic  d.o.f.  suppression 

DRILLING_DOF 

<f &lse> 

NODES.T 

7 

Number  of  nodes  in  tangential  direction 

NODESJl 

2 

Number  of  nodes  in  radial  direction 

RIN 

4.12 

Inner  radius 

ROUT 

4.32 

Outer  radius 

E 

1.E7 

Young’s  elastic  modulus 

NU 

.25 

Poisson’s  ratio 

THICKNESS 

.1 

Thickness 

BC_PROCEDURE 

CURVED _BC 

Procedure  for  boundary  conditions 

2.3.3  ARGUMENT  DESCRIPTIONS 
2.3.3.1  AUTO-DOF-SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffnesses  (see 
argument  DRILLING_DOF). 
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2. 3.3.2  BC  PROCEDURE 

Boundary  condition  procedure  name  (default:  CURVED-BC).  The  term  “boundary  con- 
ditions” refers  both  to  displacement  constraints  and  applied  loading.  The  argument 
BC_PROCEDURE  permits  you  to  to  supply  your  own  boundary  condition  procedure,  but 
keep  in  mind  that  this  may  drastically  change  the  problem  definition. 

2.3.3.3  DRILLING-DOF 

Drilling  degree  of  freedom  flag  (default:  <f  alse>).  Drilling  freedoms  are  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  off  forces  all  drilling  freedoms 
in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be  active  — 
unless  they  are  automatically  suppressed  using  use  of  the  AUT0_D0F_SUP  argument.  Note 
that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with  their 
own  surface-normal  directions  (at  nodes),  when  shell  elements  are  assembled  as  facets  ap- 
proximating an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  ( e.g .,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLING_DOF  argument  should  be  set  to  <true>  regardless  of  how  AUTO_DOF_SUP  is 
set. 

2.3.3.4  E 

Young’s  elastic  modulus  (default:  1.0  X 107). 

2.3.3. 5 ES_NAME 

Element  name  (default:  EX41).  This  is  the  name  of  the  specific  shell-element  type  you 
wish  to  select,  within  the  element  processor  defined  by  argument  ES_PR0C.  The  default 
shell-element  type,  EX41,  is  a 4-noded  quadrilateral  element  implemented  in  Processor 
ESI,  and  described  in  The  Computational  Structural  Mechanics  Testbed  User’s  Manual 
(see  ref.  2.3-1). 

2. 3.3. 6 ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  argument  allows  an  optional  list  of 
element-dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is 
still  undergoing  research  and  refinement. 

2.3.3. 7 ES-PROC 

Element  processor  (default:  ES2)  This  is  the  name  of  the  structural  element  (ES)  processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  processor  ES2,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual. 
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2.3.3.8  NODESJt 

Number  of  radial  nodes  (default:  2).  This  is  the  number  of  nodes  you  wish  to  have  along  the 
radial  direction  of  the  curved  beam  shell  model.  Note  that  this  number  should  be  consistent 
with  the  number  of  nodes  per  element.  For  example,  NODES _R  can  be  any  number  greater 
than  1 for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than 
1 for  9-node  quadrilateral  elements. 

2. 3.3.9  N0DES_T 

Number  of  tangential  nodes  (default:  7).  This  is  the  number  of  nodes  you  wish  to  have 
along  the  tangential  direction  of  the  curved  beam  shell  model.  Note  that  this  number 
should  be  consistent  with  the  number  of  nodes  per  element.  For  example,  NODES _T  can  be 
any  number  greater  than  1 for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd 
number  greater  than  1 for  9-node  quadrilateral  elements. 

2.3.3.10  NU 

Poisson’s  ratio  (default:  0.25). 

2.3.3.11  RIN 

Inner  radius  of  curved  beam  (default:  4.12). 

2.3.3.12  ROOT 

Outer  radius  of  curved  beam  (default:  4.32). 

2.3.3.13  THICKNESS 

Beam  thickness  (default:  0. 1). 


2.3.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  GEN.CURVEDJBM  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive.  Procedure  arguments  may  be  changed  from  their  default  values  by  including 
any  or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or 
blank  is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the 
default  values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name 
is  required. 


♦procedure 


GEN_CURVED_BM  (elt.proc 

elt_pars  = 
auto_dof_sup  = 
drilling.dof  ■ 
nodes.t  = 
rin  = 
E=1 . E7  ; PR= 
BC.PROCEDURE  = 


= ES2  ; elt_name  = EX41  ; - 

0.0  ; — 

<true>  ; — 

<false>  ; — 

7 ; nodes_r  =2  ; — 

4.12  ; rout  =4.32  ; — 

.25  ; thick  = .1  ; — 

CURVED _BC  ) 
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(El ) To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  ».e., 

♦call  GEN_CURVED_BM 


2.3.5  LIMITATIONS 

2.3.0  ERROR  MESSAGES  AND  WARNINGS 

None. 

2.3.7  PROCEDURE  FLOWCHART 


2.3.8  PROCEDURE  LISTING 

•procedure  GEN.CDRVED  (es.proc  = ES2  ; es.name  = EX41  ; — 

es.pars  = 0.0  ; — 

auto.dol.8up  = <true>  ; -- 

drilling.dol  - <lalse>  ; — 

nodes.t  = 7 ; nodes. r -2  ; — 

rin  =4.12  ; rout  =4.32  ; — 

E=1.E7  ; NU= . 25  ; thickness  = .1  ; — 

BC. PROCEDURE  = CURVED.BC  ) 


. Register  Element  and  Define  Macros:  ELT.NEN,  ELT.NIP,  ELT.NSTR,  etc. 


•call  ES  ( function  = ’DEFINE  ELEMENTS’  ; es.proc  = [es.proc] ; -- 
es.name  = [es.name]  ; es.pars  = [es.pars]  ) 

[XQT  TAB 

•del  nodes. tot  = < [nodes.t]  * [nodes.r]  > 

START  <nodes_tot> 

JLOC 

FORMAT  = 2 . use  cylindrical  coordinate  system 

. DEFINE  NODAL  COORDINATES 

•def/e  dx  * < 90.  / ( [nodes.t] -1)  > 

•def/e  dy  = < < [rout]  - [rin]  > / ( [nodes.r] -1)  > 

•def/i  node  = 0 
•def/e  r = [rin] 

•do  $j  * 1, [nodes.r] 

•def/e  theta  = 90. 

•do  $i  = 1, [nodes.t] 

•del  node  = < <node>  + 1 > 


Revised  12/18/91 


CSM  Testbed  Procedures  Manual 


2.3-  5 


Generic  2-D  Curved  Beam 


Pre-Processing  Procedures 


<node>  <r>,  <theta>,  0.  - MODE  DEFINITION 

*def  theta  = < <theta>  - <dx>  > 

♦enddo 

♦def  r = < <r>  + <dy>  > 

♦enddo 

. DEFINE  FICTITIOUS  ELASTIC  MATERIAL  PROPERTIES 

MATC 
1 1.0  .3 


Use  local  cylindrical  basis  vectors 
for  nodal  DOFS: 

u,v,w  = radial,  circumfer.,  axial 
same  convention  for  all  nodes 

. DEFINE  LOADS  AND  BOUNDARY  CONDITIONS 

•call  [BC.PROCEDURE]  ( nnx  = [nodes.t]  ; nny  = [nodes _r]  ; — 

nen  = <os_nen>  ; drilling.dof  = [drilling.dof]  ) 

. DEFINE  REAL  MATERIAL/SECTION  PROPERTIES 

[XqT  AUS 

. Build  Table  of  Material  Data 
TABLE(NI=16  ,NJ=1 ) : 0MB  DATA  1 1 

•def /e!2 . 4 G = < [E]  / (2 . *(1 . + [ND]  ) ) > 


Define  DOF  Directions 
JREF 

NREF  = -1 
1 <nodes_tot> 


1=1, 2, 3, 4, 5, 6 
J = 1 

[E]  [NU]  [E]  <G>  <G>  <G> 

. Build  Laminate  Data  Tables 
TABLE(NI=3 ,NJ=1 , ITYPE=0) : LAM  0MB  1 1 

1=1, 2, 3 . (material_type , layer_thickness , angle (deg.) 

J=1 : 1 [THICKNESS]  0.0 

[XqT  LAU 

. GENERATE  ELEMENTS 
[XqT  ELD 

. Define  number  of  integration  (stress)  points  based  on  element  type 

*def/i  nst  = < <es_nip>*<_nstr>  > 
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Define  element  attributes 
<ES_EXPE_CMD> 

NSECT  = 1 

Define  element  nodal  connectivity 

♦call  CURV_ELT_CONN  (nnx*[nodes_t] ; nny=[nodes_r]  ; nen=<es_nen>) 

Suppress  DOFs  not  supported  by  elements 

♦if  < [ADTO.DOF.SUP]  > /then 

♦ call  ES  ( function  = ’DEFINE  FREEDOMS  * ) 

♦endif 


♦end 

♦procedure  CURV_ELT_CONN  ( nnx;  nny;  nen  ) 


==3======================== 

Define  Element  Connectivity  Record  for  ELD  Processor 


♦if  < [nen]  /eq  4 > /then 
♦do  tiy  = lt  <[nny]-l> 

♦do  fix  = 1,  <[nnx]-l> 

♦def/i  nl  * < (<$iy>-l)* [nnx] 

♦def/i  n2  a < <nl>  + 1 > 

♦def/i  n3  = < <n2>  ♦ [nnx]  > 

♦def/i  n4  = < <n3>  1 > 


+ <$ix>  > 


<nl>  <n2>  <n3>  <n4> 


♦enddo 

♦enddo 


♦el seif  < [nen] 

/eq  9 

> 

/then 

♦do  #iy  = 1, 

<[nny]-2>,  2 

♦do  $ix  = 

1, 

<[nnx]-2>,  2 

♦def/i 

nl 

= 

< 

(<$iy>-l)* [nnx]  ♦ <*ix>  > 

♦def/i 

n2 

s 

< 

<nl>  ♦ 2 > 

♦def/i 

n3 

= 

< 

<n2>  ♦ (2* [nnx])  > 

♦def/i 

n4 

= 

< 

<n3>  - 2 > 

♦def/i 

n5 

= 

< 

<nl>  + 1 > 

♦def/i 

n6 

= 

< 

<n2>  ♦ [nnx]  > 

♦def/i 

n7 

= 

< 

<n4>  ♦ 1 > 

♦def/i 

n8 

= 

< 

<n6>  - 2 > 

♦def/i 

n9 

= 

< 

<n8>  ♦ 1 > 

<nl>  <n2>  <n3>  <n4>  <nB>  <n6>  <n7>  <n8>  <n9> 
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*enddo 

♦enddo 

*endif 

*end 

2.3.9  REFERENCES 
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2.4  Procedure  GEN-PLATE 

2.4.1  GENERAL  DESCRIPTION 

Procedure  GEN_PLATE  is  used  to  generate  flat  or  warped  4-sided  plate  finite  element  models. 
The  plate  edges  are  defined  to  be  straight  with  the  surface  defined  as  the  bi-linearly 
interpolation  of  the  edges.  This  type  of  interpolated  surface  is  also  known  as  a Coon’s 
surface  (see  refs.  2.4-2  and  2.4-3). 

2.4.2  PROCEDURE  USAGE 

Procedure  GEN_PLATE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  GEN .PLATE  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) preceded  by  a space  may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  GEN  .PLATE  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Exceptions  to  this  rule  are  noted  in  the 
following  section  under  detailed  argument  descriptions. 
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Argument 

Default  Value 

Meaning 

ES_PR0C 

ESI 

Generic  element  processor 

ESJJAME 

EX97 

Generic  element  name 

ES_PARS 

0.0 

Element  research  parameters 

XYZ1 

*-* 

o 

o 

Cartesian  coordinates  of  point  1. 

XYZ2 

1,0,1 

Cartesian  coordinates  of  point  2. 

XYZ3 

1,90,1 

Cartesian  coordinates  of  point  3. 

XYZ4 

1,90,0 

Cartesian  coordinates  of  point  4. 

N0DES.1 

7 

Number  of  nodes  along  edge  1 

N0DES.2 

7 

Number  of  nodes  along  edge  2 
including  duplicate  nodes  if  plate  closes 

EDGE.WEIGHTS 

1,1, 1.1 

Plate  section  property  procedure 

BC_PROCEDURE 

1 > 

Boundary  condition  procedure 

DRILLINGJDOF 

<true> 

Drilling  dof  suppression  flag 

AUTO_DOF_SUP 

<true> 

Automatic  dof  suppression  flag 

SECTION_PRC 

i > 

Plate  section  property  procedure 

NSECT 

1 

Plate  section  property  number 

The  following  values  not  used  if  SECTION_PRC  is  specified. 

E 

30.  E6 

Young’s  Modulus 

HU 

0.3 

Poisson’s  ratio 

VTDEN 

0.1 

Weight  Density 

THICKNESS 

.1 

Plate  thickness 

2.4.3  ARGUMENT  DESCRIPTIONS 

2.4.3. 1 AUTO,DQF.SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffness  (see 
argument  DRILLING_DOF). 

2. 4. 3.2  BC, PROCEDURE 

Name  of  user  provided  boundary  condition  procedure  (default:  5 5).  The  term  boundary 
conditions”  refers  both  to  displacement  constraints  and  applied  loading.  If  a boundary 
conditions  procedure  is  provided,  the  following  call  will  be  performed.  The  macrosymbol 
<es_nen>  equals  the  number  of  element  nodes. 

♦call  [BC.PROCEDURE]  ( nodes. 1 = [nodes. 1]  ; — 

nodes. 2 = [nodes_2]  ; — 
es.nodes  = <es_nen>  ; — 
drilling.dof  = [drilling. dof]  ) 

No  action  is  taken  if  a boundary  condition  procedure  name  is  not  provided. 
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2.4. 3.3  DRILLIWG-DDF 

Drilling  degree  of  freedom  flag  (default:  <true>).  Drilling  freedoms  are  defined  as  rotations 
normal  to  the  surface  of  the  plate.  Setting  this  flag  set  to  <false>  forces  all  drilling 
freedoms  in  the  model  to  be  suppressed.  Setting  it  to  true  forces  all  drilling  freedoms  to  be 
active  — unless  they  are  automatically  suppressed  by  use  of  the  ATTfO-DOF-SUP  argument. 
Note  that  while  many  plate  elements  do  not  have  any  rotational  stiffness  associated  with 
their  own  surface-normal  directions  (at  nodes),  when  plate  elements  are  assembled  as  facets 
approximating  an  arbitrary  plate  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  plate  normal.  This  is  especially  true  of  “flat”  ( e.g .,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  plate  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  plate  normals  are 
identical.)  For  a curved  plate,  the  misalignment  diminishes  only  as  the  number  of  elements 
is  increased.  Most  plate  elements  in  the  Testbed  have  their  own  misalignment  tolerance 
parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automatically  suppress 
the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness,  the  DRILLING_DOF 
argument  should  be  set  to  <true>  regardless  of  how  AUT0_D0F_SUP  is  set. 

2.4.3. 4 E 

Young’s  modulus  (default:  30.E6).  This  argument  is  ignored  if  SECTION_PRC  parameter  is 
specified.  See  the  description  for  SECTION_PRC  for  more  detail. 

2.4. 3. 5 EDGE-WEIGHTS 

Node  placement  can  be  weighted  along  each  surface  edge  according  to  the  EDGE-WEIGHTS 
parameter.  The  input  format  requires  a list  of  four  edge-node  placement  weightings  rep- 
resenting the  node  weighting  for  edgel,  edge2,  edge3,  and  edge4  (default:  l.,l.,l.,l.). 

The  weighting  value  for  a given  edge  represents  the  length  of  the  last  element  divided  by 
the  length  of  the  first  element  along  that  edge.  The  edge  orientation  arrows  in  figure  2.4-1 
point  from  the  first  element  to  the  last  element  along  each  edge.  In  the  case  of  9-node 
quad  elements,  the  midside  and  center  nodes  are  positioned  at  the  appropriate  locations 
based  on  the  elements  natural  coordinate  system. 

The  procedure  interprets  negative  weight  values  to  mean  the  positive  reciprocal.  For 
example,  a value  of  -5.0  is  identical  to  a value  of  0.2. 

2. 4. 3.0  ES-NAME 

Element  name  (default:  EX97).  This  argument  is  the  name  of  the  specific  plate-element 
type  you  wish  to  select,  within  the  element  processor  defined  by  argument  ES-PROC.  The  de- 
fault plate-element  type,  EX97,  is  a 9-node  quadrilateral  element  implemented  in  processor 
ESI,  and  described  reference  2.4-1. 

2.4.3. 7 ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  argument  is  an  optional  list  of 
element-dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is 
still  undergoing  research  and  refinement. 
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2.4. 3. 8 ES-PROC 

Element  processor  (default:  ESI)  This  argument  is  the  name  of  the  structured  element 
(ES)  processor  that  contains  the  plate  element  type  you  wish  to  employ  in  the  model. 
The  default  plate-element,  processor  ESI,  is  described  in  The  Computational  Structural 
Mechanics  Testbed  User’s  Manual. 

2.4. 3. 9 NQDES_1 

Number  of  nodes  on  edge  1 including  the  nodes  at  the  surface  corners  (default:  7).  This 
argument  is  also  the  number  of  nodes  on  edge  3.  This  number  should  be  consistent  with 
the  element  type  selected.  For  example,  NODES _1  can  be  any  number  greater  than  1 for 
4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for  9-node 
quadrilateral  elements. 

2.4.3.10  NODES-2 

Number  of  nodes  on  edge  2 including  the  nodes  at  the  surface  corners  (default:  7).  This 
argument  is  also  the  number  of  nodes  on  edge  4.  This  number  should  be  consistent  with 
the  element  type  selected.  For  example,  NODES _2  can  be  any  number  greater  than  1 for 
4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for  9-node 
quadrilateral  elements. 

2.4.3.11  NSECT 

Plate  section  property  number  (default:  1).  The  NSECT  value  is  required  when  defining  the 
element  using  the  processor  ELD.  See  the  description  of  SECTION_PRC  for  more  detail. 

2.4.3.12  NU 

Poisson’s  ratio  (default:  0.3).  This  argument  is  ignored  if  the  SECTION_PRC  input  parameter 
is  specified.  See  the  description  of  SECTI0N_PRC  for  more  detail. 

2.4.3.13  XYZ1 

The  cartesian  coordinates  (x,y,  z)  which  define  corner  number  1 of  the  model  surface.  The 
form  of  the  input  is  three  real  values,  each  separated  by  a comma  (default:  l.,0.,0.).  The 
surface  is  defined  by  four  edges  which  are  defined  as  a linear  interpolation  in  cartesian 
coordinates  of  four  endpoints,  or  “corner”  points. 

2.4.3.14  XYZ2 

The  cartesian  coordinates  ( x,y,z ) defining  the  corner  number  2 of  the  model  surface  (de- 
fault: l.,0.,l.). 

2.4.3.15  XYZ3 

The  cartesian  coordinates  ( x,y,z ) defining  the  corner  number  3 of  the  model  surface  (de- 
fault: l.,90.,l.). 
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2.4.3.16  XYZ4 

The  cartesian  coordinates  (x,y,  z)  defining  the  corner  number  4 of  the  model  surface  (de- 
fault: l.,90.,0.). 

2.4.3.17  SECTIOS-PRC 

Name  of  a user  supplied  procedure  to  define  the  plate  section  properties  (default  = ’ ’).  If 
a section  properties  procedure  is  provided,  the  following  call  will  be  performed. 

♦call  [section_prc]  ( nsect  = [nsect]  ) 

The  effect  of  the  default  is  to  allow  the  procedure  to  generate  an  isotropic  material  section 
based  on  the  input  parameters  E,  NU,  WTDEN,  and  THICKNESS.  The  section  number  is  defined 
by  the  input  parameter  NSECT.  If  the  call  parameter  SECTION_PRC  is  defined  by  the  user, 
then  call  parameters  E,  NU,  WTDEN,  and  THICKNESS  are  ignored  by  procedure  GEN -PLATE. 

2.4.3.18  THICKNESS 

Thickness  of  the  plate  wall  (default  = 1.0).  This  argument  is  ignored  if  SECTI0N_PRC 
parameter  is  specified.  See  the  description  for  SECTIONJPRC  for  more  detail. 

2.4.3.19  WTDEN 

Weight  density  expressed  in  lb/in.3  (default:  0.1  lb/in.3).  This  argument  is  ignored  if  the 
SECTI0N_PRC  input  parameter  is  specified.  Processor  LAU  will  convert  the  weight  density 
to  mass  density  using  the  gravitational  acceleration  constant  386.4  in/sec2. 


2.4.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  GEN_PLATE  may  be  invoked  using  the  *call  directive.  Procedure  arguments  may 
be  changed  from  their  default  values  by  including  any  or  alLof  the  arguments  and  their 
new  values  in  the  procedure  call.  A space  or  blank  is  required  between  the  end  of  the 
procedure  name  and  the  left  parenthesis.  If  the  default  values  of  the  procedure  arguments 
are  to  be  used,  then  only  the  procedure  name  is  required. 

♦procedure  GEN.PLATE  ( ES.PROC  * ESI  ; ES.NAME  * EX97  ; ES_PARS  « 0.0  ; — 
XYZ1  = 0.,0.,0.  ; — 

XYZ2  = l.,O.,0.  ; — 

XYZ3  = 1..1..0.  ; — 

XYZ4  = 0.,1.,0.  ; — 

N0DES.1  = 3 ; 

N0DES.2  * 3 ; — 

EDGE.WEIGHTS  *1.,1.,1.,1.  ; — 

BC_PR0CEDURE  Boundary  condition  procedure 

DRILLING.DOF  = <true>  ; -- 
AUT0.D0F.SUP  = <true>  ; — 

SECTI0N.PRC  =»>;--  . Plate  section  property  procedure 

NSECT  = 1 ; — • Plate  section  property  ID 

The  following  values  not  used  if  SECTI0N.PRC  specified 
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E = 30. E6  ; — . Young* s Modulus 

NTJ  * .3  ; — . Poissons  ratio 

THICKNESS  * .1  — . Plato  thickness 

) 

2.4.4. 1 Mesh  Generation 

The  method  of  surface  generation  used  by  procedure  GEN_PLATE  is  described  in  the  section. 
Terminology  depicted  on  figure  2.4-1  provides  a visual  interpretation  of  the  parameters  used 
to  generate  a general  plate  surface.  Node  generation  capability  is  provided  by  the  Testbed 
processor  MESH. 

To  define  the  plate  surface,  the  user  defines  four  coordinate  positions  in  the  cartesian  ref- 
erence frame.  These  coordinate  positions  represent  the  corners  of  a straight-sided  quadri- 
lateral region.  The  surface  of  the  region  is  defined  as  the  bi-linear  interpolation  of  the  four 
sides  (see  refs.  2.4-2  and  2.4-3). 


corner  3 


Figure  2.4-1  Generic  Plate  Surface  Topology. 
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The  connectivity  of  the  surface  is  defined  in  figure  2.4-1.  The  user  provides  the  coordinates 
for  corners  1 to  4.  Edge  1 of  the  region  starts  at  corner  1 and  ends  at  corner  2.  The 
remaining  edges  are  defined  in  a similar  manner.  The  arrows  indicate  the  orientation  of 
the  edges  and  the  direction  of  increasing  node  numbers. 

The  topology  of  the  resulting  finite  element  grid  is  depicted  in  Figure  2.4-2.  Nodes  are 
created  first  along  edge  1,  then  in  successive  lines  terminating  along  edge  3.  The  user 
defines  the  number  of  nodes  along  edges  1 and  2,  which  also  defines  the  number  of  nodes 
for  edges  3 and  4.  The  relative  position  of  the  nodes  along  each  edge  may  be  controlled 
using  the  edge  weighting  parameter  EDGE-HEIGHTS. 


Figure  2.4-2  Node  and  Element  Topology. 
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2.4.4. 2 Flat  Plates 

In  this  section  are  presented  examples  of  how  procedure  GEH .PLATE  may  be  used  to  create 
two-dimensional  finite  element  plate  models. 

In  the  following  example,  procedure  GEN_PLATE  is  used  to  generate  a flat  rectangular  plate 
with  length  of  10  inches  and  width  of  5 inches  using  4-noded  quadrilateral  elements  (see 

figure  2.4-3). 

♦call  GEN.PLATE  ( es.proc  » ’ESI*  ; es.name  « ,EX47>  ; 
xyzl  * 0. ,0. ,0.  J 

xyz2  * 10 • * 0 • » 0 • j 

xyz3  B 10. ,5. ,0.  i 

xyz4  “ 0 . , 5 . , 0 . ; 

nodes. 1 * 9 ; — 

nodes. 2 = 5 ) 
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Figure  2.4-3  Rectangular  Plate 
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This  example  demonstrates  the  use  of  the  EDGE.WEIGHTS  parameter  and  how  it  affects  both 
the  4-node  and  9-node  quadrilateral  element  mapping  (see  figure  2.4-4).  The  EDGE.UEIGHTS 
specifies  elements  at  the  ends  of  edges  1 through  4 to  be  5 times  longer  than  elements  at 
the  beginning  of  the  edges. 

♦call  GEN.PLATE  ( es.proc  - »ES1»  ; es.name  - >EX97»  ; — 
xyzl  * 0. ,0. ,0.  ; — 

xyz2  * 10.,0.,0.  ; — 

xyz3  = 10. ,5. ,0.  ; — 

xyz4  * 0. ,5. ,0.  ; — 

nodes _1  = 9 ; — 

nodes_2  » 5 ; — 

edge .weights  « 5. ,-5. ,-5. ,5.  ) 


(b)  9-node  elements 

Figure  2.4-4  Rectangular  Plate  With  Weighted  Elements 
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The  following  example  produced  the  skewed  flat  plate  shown  in  figure  2.4-5. 

♦call  GEN.PLATE  ( es_proc  * ,ES1>  ; es.name  * ,EX47’  ; 
xyzl  * 0. ,0. ,0.  ; 

xyz2  * 10. f 1 . ,0.  ; 

xyz3  * 7 . , 6 . , 0 . ; 

xy z4  » 2 . , 8 . , 0 . ; 

nodes_l  * 13  ; — 

nodes_2  = 11  ) 


V 


k x 


Figure  2.4-5  Skewed  Flat  Plate 
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2.4.4.S  Warped  Plates 


In  the  following  example,  procedure  GEN-PLATE  is  used  to  generate  the  highly  warped 
surface  shown  in  figure  2.4-6. 


*call  GEN.PLATE  ( es.proc  * ’ESI’ 


xyzl 
xyz2 
xyz3 
xyz4 
nodes. 1 
nodes-2 


= 0..0..0. 
= 5. ,5. ,0. 
* 5. ,0. ,5. 

- 0.,S.,5. 

- 21  ; — 
- 23  ) 


es_name  » ’EX47’  ; — 


Figure  2.4-6  Warped  Plate 
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2.4.5  LIMITATIONS 

None. 


2.4.0  ERROR  MESSAGES  AND  WARNINGS 

None. 


2.4.7  PROCEDURE  FLOWCHART 

GEN -PLATE  (Plate  generation  procedure) 

[BC-PROCEDURE]  (user  supplied  boundary  conditions/loads  procedure) 
[SECTION-PRC]  (user  supplied  section  property  generation  procedure) 


2.4.8  PROCEDURE  LISTING 

•procedure  GEN. PLATE  ( es.proc  = esl  ; es.name  = ex97  ; es.pars  =0.0 


xyzl 
xyz2 
xyz3 
xyz4 
nodes.l 
nodes_2 
edge, weights 
online 
bc.procedure  = 


= 0.  ,0 . ,0 . 

* 1. f0. t0. 

= 

= 0.,1.,0. 

-3s  — 

* 3 ; — 

= la^leplepl*  | “* 

: 0 j — , suppress  nodes  and  element  output 
Boundary  condition  procedure 


drilling.dof  = <true>  ; — 
auto.dof.sup  = <true>  ; — 

section.prc  = » * ; — . Shell  section  property  procedure 

The  following  value*  u»ed  only  if  section.prc  not  specified 


nsect  = 1 ; 
E = 3O.E0  ; 
NU  = .3  ; - 
WTDEN  * .1 
thickness  = 


.1  — 


Shell  section  property  ID 
Young* s Modulus 
Poisons  ratio 
Veight  Density 
Shell  thickness 


Model  Definition  Procedure  for  GENeric  Plate  in  cartesian  coordinates 

SSSSSSSSSSSSaSSSfMSSSSSSSSSSSSSSSSSSSaSSSSSSSSSSSSSSSSSSSS  — — — — 

A general  purpose  clip  procedure  to  create  the  finite  element 
mesh  for  a plate  with  arbitraty  straight  sides  using  4 or 
9 noded  quadrilateral  elements. 

If  a procedure  to  generate  shell  section  properties  is  not  provided, 
the  isotropic  section  described  by  E,  NO,  WTDEN,  and  THICKNESS  vill 
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be  automatically  generated.  (see  [section.prc]  parameter) 

4 boundary  condition  procedure  should  be  provided  but  is 
optional.  If  not  provided,  no  boundary  conditions  will  be 
defined.  (see  [be .procedure]  parameter) 

♦remark  •♦♦♦♦♦♦♦♦♦♦♦♦*♦*♦*♦♦*♦*♦*******♦*♦♦♦ 

♦remark  GEN. PLATE  MODEL  GENERATION  PROCEDURE 
♦remark  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦*♦**♦♦♦♦♦♦***♦***♦* 

♦def/i  nl  = [nodes. l] 

♦def/i  n2  = [nodes_2] 

♦def/e  xyzl [1 : 3]  = [xyzl] 

♦def/e  xyz2[l : 3]  = [xyz2] 

♦def/e  xyz3 [1 : 3]  = [xyz3] 

♦def/e  xyz4[l : 3]  = [xyz4] 

♦def/e  w[l:4]  = [edge.weights] 

♦def/e  rc [1:4]  = <xyzl [l]>,<xyz2 [l]>,<xyz3[l]>,<xyz4[i]> 

♦def/e  tc[l:4]  = <xyzi [2] > , <xyz2 [2]>,<xyz3[2]>,<xyz4[2]> 

♦def/e  zc [1:4]  = <xyzl[3]>,<xyz2[3]>,<xyz3[3]>,<xyz4[3]> 


Register  Element  and  Define  Macros:  ES.NEN,  ES.NIP,  ES.NSTR,  etc. 


:=s=sss: 


♦call  ES  ( function  = ’DEFINE  ELEMENTS’  ; es.proc  = [es.proc];  — 
es.name  = [es.name]  5 es.pars  = [es.pars]  ) 


Define  nodal  coordinates  and  element  connectivities  into 
separate  formatted  files.  These  files  are  gauranteed  to  have 
unique  names  that  are  not  currently  in  use  in  the  current 
directory. 

♦def/i  chk.closure  = 0 
[xqt  mesh 

♦if  <mesh.err>  /then 

♦remark  Error  occurred  during  MESH  processor  execution. 

♦remark  GEN.PLATE  procedure  terminated. 

•eof 

♦endif 


Construct  Model  Data-base  with  TESTBED  Processors 

stsrssssssssssssrsssss8s=s=s=sr====ss=5=s;ssss=ss 

[XQT  TAB 

START  <tot.nodes> 

ONLINE  s [online] 

JLOC 

♦show  macros  node.file 
♦add  <node.file> 
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Define  Load/Boundary  Conditions  II  Procedure  Supplied 


♦if  <not(<ifelse( [bc.procedure] ; ;1;0)>)>  /then 

♦call  [BC_ PROCEDURE]  ( nodes_l  = <nl>  ; — 

nodes_2  = <n2>  ; — 
es_nodes  = <es_nen>  ; — 
drilling.dof  = [drilling_dof]  ) 

♦ else 

♦remark  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦remark  BOUNDARY  CONDITIONS  NOT  SPECIFIED 
♦remark  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦endif 

Define  Shell  Section  Properties 


♦if  <not(<ifelse( [sect ion.prc] ; ;i;0)>)>  /then 

♦call  [section.prc]  ( nsect  = [nsect]  ) 
♦else 


Define  the  default  Material  and  Section  Properties 


♦def/e  G = < [E] /(2 . *(1+ [NU] ) ) > 
[XQT  AUS 


Build  Table  of  Material  Data 


TABLE(ni=16,nj=l):  0MB  DATA  1 1 
i = 1,2, 3, 4,5, 6,7, 8,9 

j = 1 

Ell  NU12  E22  G12  G13  G23  ALPHA 1 ALPHA2  WTDEN 
[E]  [NU]  [E]  <G>  <G>  <G>  0.  0.  [WTDEN] 


Build  Laminate  Data  Tables 

TABLE(ni-3 ,nj=l , itype=0) : LAM  0MB  [nsect]  1 
i = 1,2,3 

j = 1 matl  t layer  thickness  matl  angle 

1 [thickness]  0. 

[XQT  LAU 
ONLINE  = 2 
♦endif 


Generate  Elements 
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[XQT  ELD 
<ES_EXPE_CMD> 

NSECT  = [ns act] 

Dafina  alamant  nodal  connectivity 

•show  macros  alan_f ila 
•add  <elea_file> 


. Suppress  DOFs  not  supported  by  elements 

• if  < [AUTO_DOF_SOP]  > /then 

•call  ES  ( function  = ’DEFINE  FREEDOMS’  ) 

♦end if 

♦end 
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2.5  Procedure  GEN_SHELL 

2.5.1  GENERAL  DESCRIPTION 

Procedure  GEN.SHELL  is  used  to  generate  a class  of  curved  shell  finite  element  models.  All 
surfaces  are  modeled  as  bi-linearly  interpolated  surfaces  (i.e.,  Coon’s  surfaces)  in  cylindrical 
coordinate  space  (see  refs.  2.5-2  and  2.5-3).  Interpolation  in  cylindrical  coordinates  is 
especially  well  suited  for  generating  shells  of  revolution,  such  as  cylinders,  cones,  annular 
plates,  and  spiraling  surfaces. 

2.5.2  PROCEDURE  USAGE 

Procedure  GEN  .SHELL  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  GEN .SHELL  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) preceeded  by  a space  may  be  used  to  continue  the  argument  list  on  the  next 
line. 

The  allowable  arguments  for  procedure  GEN.SHELL  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Exceptions  to  this  rule  are  noted  in  the 
following  section  under  detailed  argument  descriptions. 
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Argument 

Default  Value 

Meaning 

ES_PROC 

ESI 

Generic  element  processor 

ES_NAME 

EX97 

Generic  element;  name 

ES.PARS 

0.0 

Element  research  parameters 

RTZ1 

o 

o 

Cylindrical  coordinates  of  point  1. 

RTZ2 

1,0,1 

Cylindrical  coordinates  of  point  2. 

RTZ3 

1,90,1 

Cylindrical  coordinates  of  point  3. 

RTZ4 

1,90,0 

Cylindrical  coordinates  of  point  4. 

NODES.l 

7 

Number  of  nodes  along  edge  1 

N0DES_2 

7 

Number  of  nodes  along  edge  2 
including  duplicate  nodes  if  shell  closes 

EDGE_WEIGHTS 

1.1. 1,1 

Shell  section  property  procedure 

JREF 

> > 

Joint  dof  reference  frame 

BC_PROCEDURE 

i > 

Boundary  condition  procedure 

DRILLINGJDOF 

<false> 

Drilling  dof  suppression  flag 

AUTO_DOF_SUP 

<false> 

Automatic  dof  suppression  flag 

SECTION_PRC 

> i 

Shell  section  property  procedure 

NSECT 

1 

Shell  section  property  number 

The  following  values  not  used  if  SECTION __PRC  is  specified. 

E 

30.  E6 

Young’s  Modulus 

ND 

0.3 

Poisson’s  ratio 

WTDEN 

0.1 

Weight  Density 

THICKNESS 

.1 

Shell  thickness 

2.5.3  ARGUMENT  DESCRIPTIONS 

2. 5.3.1  AUTO_DOF_SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <false>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffness  (see 
argument  DRILLING-DOF). 

2. 5. 3. 2 BC-PROCEDURE 

Name  of  user  provided  boundary  condition  procedure  (default:  ’ ’).  The  term  “boundary 
conditions”  refers  both  to  displacement  constraints  and  applied  loading.  If  a boundary 
condition  procedure  is  provided,  the  following  call  will  be  performed.  The  macrosymbol 
<es_nen>  equals  the  number  of  element  nodes,  while  the  macrosymbols  <nl>  and  <n2> 
equal  the  number  of  nodes  actually  generated  along  edges  one  and  two. 

♦call  [BC.PROCEDURE]  ( nodes.l  = <nl>  ; — 

nodes_2  = <n2>  ; — 
es.nodes  = <es_nen>  ; — 
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drilling_dof  = [drilling.dof]  ) 

No  action  is  taken  if  a boundary  condition  procedure  name  is  not  provided. 

2. 5.3.3  DRILLING-POP 

Drilling  degree  of  freedom  flag  (default:  <false>).  Drilling  freedoms  are  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  set  to  <false>  forces  all  drilling 
freedoms  in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be 
actjve  — unless  they  are  automatically  suppressed  by  use  of  the  AUT0_D0F_STJP  argument. 
Note  that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with 
their  own  surface-normal  directions  (at  nodes),  when  shell  elements  are  assembled  as  facets 
approximating  an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  ( e.g .,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLING-DOF  argument  should  be  set  to  <true>  regardless  of  how  AUTO_DOF_SUP  is 
set. 


2. 5. 3. 4 E 

Young’s  modulus  (default:  30.E6).  This  argument  is  ignored  if  SECTION-PRC  parameter  is 
specified.  See  the  description  for  SECTION_PRC  for  more  detail. 

2. 5.3.5  EDGE-WEIGHTS 

Node  placement  can  be  weighted  along  each  surface  edge  according  to  the  EDGE-WEIGHTS 
parameter.  The  input  format  requires  a list  of  four  edge-node  placement  weightings  rep- 
resenting the  node  weighting  for  edgel,  edge2,  edge3,  and  edge4  (default:  l.,l.,l.,l.). 

The  weighting  value  for  a given  edge  represents  the  length  of  the  last  element  divided  by 
the  length  of  the  first  element  along  that  edge.  The  edge  orientation  arrows  in  figure  2.5-1 
point  from  the  first  element  to  the  last  element  along  each  edge.  In  the  case  of  9-node 
quad  elements,  the  midside  and  center  nodes  are  positioned  at  the  appropriate  locations 
based  on  the  elements  natural  coordinate  system. 

The  procedure  interprets  negative  weight  values  to  mean  the  positive  reciprocal.  For 
example,  a value  of  -5.0  is  identical  to  a value  of  0.2. 

2. 5.3.6  ES-NAME 

Element  name  (default:  EX97).  This  argument  is  the  name  of  the  specific  shell-element  type 
you  wish  to  select,  within  the  element  processor  defined  by  argument  ES-PROC.  The  default 
shell-element  type,  EX97,  is  a 9-node  quadrilateral  element  implemented  in  processor  ESI, 
and  described  reference  2.5-1. 


Revised  12/18/91 


CSM  Testbed  Procedures  Manual 


2.5-  3 


General  Shells  and  Curved  Surfaces 


Pre-Processing  Procedures 


2.5.3. 7 ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  argument  is  an  optional  list  of 
element-dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is 
still  undergoing  research  and  refinement. 

2. 5. 3. 8 ES-PROC 

Element  processor  (default:  ESI)  This  argument  is  the  name  of  the  structural  element 
(ES)  processor  that  contains  the  shell  element  type  you  wish  to  employ  in  the  mode  . 
The  default  shell-element,  processor  ESI,  is  described  in  The  Computational  Structural 
Mechanics  Testbed  User’s  Manual. 

2. 5.3.9  JREF 

Joint  degree  of  freedom  (dof)  reference  frame  (default:  -1  for  global  cylindrical).  The  user 
may  provide  any  alternate  frame  which  has  been  created  prior  to  calling  this  procedure. 
A negative  value  causes  the  frame  to  be  interpreted  as  a cylindrical  reference  frame. 

2.5.3.10  N0DES_1 

Number  of  nodes  on  edge  1 including  the  nodes  at  the  surface  corners  (default:  7).  This 
argument  is  also  the  number  of  nodes  on  edge  3.  This  number  should  be  consistent  with 
the  element  type  selected.  For  example,  NODES _1  can  be  any  number  greater  than  1 for 
4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for  9-node 
quadrilateral  elements. 

2.5.3.11  N0DES_2 

Number  of  nodes  on  edge  2 including  the  nodes  at  the  surface  corners  (default:  7).  This 
argument  is  also  the  number  of  nodes  on  edge  4.  This  number  should  be  consistent  with 
the  element  type  selected.  For  example,  N0DES_2  can  be  any  number  greater  than  1 for 
4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for  9-node 
quadrilateral  elements. 

2.5.3.12  NSECT 

Shell  section  property  number  (default:  1).  The  NSECT  value  is  required  when  defining  the 
element  using  the  processor  ELD.  See  the  description  of  SECTION-PRC  for  more  detail. 

2.5.3.13  NU 

Poisson’s  ratio  (default:  0.3).  This  argument  is  ignored  if  the  SECTION-PRC  input  parameter 
is  specified.  See  the  description  of  SECTION-PRC  for  more  detail. 

2.5.3.14  RTZ1 

The  cylindrical  coordinates  ( r,0,z ) which  define  corner  number  1 of  the  model  surface  (0 
in  degrees).  The  form  of  the  input  is  three  real  values,  each  separated  by  a comma  (default: 
l.,0.,0.).  The  surface  is  defined  by  four  edges  which  are  defined  as  a linear  interpolation 
in  cylindrical  coordinates  of  four  endpoints,  or  “corner”  points. 
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2.5.3.15  RTZ2 

The  cylindrical  coordinates  (r,0,  z)  defining  the  corner  number  2 of  the  model  surface 
(default:  l.,0.,l.). 

2.5.3.10  RTZ3 

The  cylindrical  coordinates  (r,0,  z)  defining  the  corner  number  3 of  the  model  surface 
(default:  l.,90.,l.). 

2.5.3.17  RTZ4 

The  cylindrical  coordinates  (r,  6,  z)  defining  the  corner  number  4 of  the  model  surface 
(default:  l.,90.,0.). 

2.5.3.18  SECTION_PRC 

Name  of  a user  supplied  procedure  to  define  the  plate  section  properties  (default  = ’ ’).  If 
a section  properties  procedure  is  provided,  the  following  call  will  be  performed. 

♦call  [section_prc]  ( nsect  = [nsect]  ) 

The  effect  of  the  default  is  to  allow  the  procedure  to  generate  an  isotropic  material  section 
based  on  the  input  parameters  E,  NTJ,  WTDEN,  and  THICKNESS.  The  section  number  is  defined 
by  the  input  parameter  NSECT.  If  the  call  parameter  SECTION_PRC  is  defined  by  the  user, 
then  call  parameters  E,  NU,  WTDEN,  and  THICKNESS  are  ignored  by  procedure  GEN_SHELL. 

2.5.3.19  THICKNESS 

Thickness  of  the  shell  wall  (default  = 1.0).  This  argument  is  ignored  if  SECTIONJPRC 
parameter  is  specified.  See  the  description  for  SECTI0N_PRC  for  more  detail. 

2.5.3.20  WTDEN 

Weight  density  expressed  in  lb/in.3  (default:  0. 1 lb/in.3).  This  argument  is  ignored  if  the 
SECTI0N_PRC  input  parameter  is  specified.  Processor  LAU  will  convert  the  weight  density 
to  mass  density  using  the  gravitational  acceleration  constant  386.4  in/sec2. 

2.5.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  GEN-SHELL  may  be  invoked  using  the  *call  directive.  Procedure  arguments  may 
be  changed  from  their  default  values  by  including  any  or  all  of  the  arguments  and  their 
new  values  in  the  procedure  call.  A space  or  blank  is  required  between  the  end  of  the 
procedure  name  and  the  left  parenthesis.  If  the  default  values  of  the  procedure  arguments 
are  to  be  used,  then  only  the  procedure  name  is  required. 

♦procedure  GEN.SHELL  ( ES.PROC  = ESI  ; ES.NAME  = EX97  ; ES.PARS  * 0.0  ; — 
RTZ1  = l.,0.,0.  ; — 

RTZ2  = 1.  ,0.  ,1.  ; — 
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RTZ3  = 1. ,90. ,1.  ; — 

RTZ4  = l.,90.,0.  ; — 

N0DES_1  = 7 ; — 

N0DES.2  = 7 ; — 

EDGE.WEIGHTS  = ; — 

BC.PROCEDURE  = ’ ’ ; — . Boundary  condition  procedure 
DRILLING.DOF  = <true>  ; — 

AUT0_D0F_SUP  * <true>  ; — 

SECTI0N_PRC  = » * ; — . Shell  section  property  procedure 

NSECT  = 1 ; — • Shell  section  property  ID 

The  following  values  not  used  if  SECTION.PRC  specified 
E = 30.E6  ; — • Young’s  Modulus 

NU  = .3  ; — • Poissons  ratio 

THICKNESS  = .1  — . Shell  thickness 

) 

2. 5. 4.1  Mesh  Generation 

The  method  of  surface  generation  used  by  procedure  GEN_SHELL  is  described  in  the  section. 
Termology  depicted  on  figure  2.5-1  provides  a visual  interpretation  of  the  parameters  used 
to  generate  a curved  surface. 

To  the  define  the  shell  surface,  the  user  deftness  four  coordinate  positions  in  a cylindrical 
reference  frame.  These  four  positions  represent  four  corners  of  a four  sided  region.  The 
sides  of  the  region  (which  will  also  he  referred  to  as  edges)  are  defined  by  linearly  inter- 
polating between  the  coordinate  values  of  the  corner  points.  The  surface  of  the  region  is 
defined  as  a bi-linear  interpolation  of  the  four  sides,  also  known  as  a Coon  s surface  (see 
refs.  2.5-2  and  2.5-3).  It  must  be  remembered  that  since  interpolations  are  performed  in 
cylindrical  coordinates,  the  surface  and  its  edges  will  not  generally  be  flat  or  straight,  but 
rather  curved. 
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Figure  2.5-1  Generic  Shell  Surface  Topology. 

The  connectivity  of  the  surface  is  defined  in  figure  2.5-1.  The  user  provides  the  coordinates 
for  corners  1 to  4.  Edge  1 of  the  region  starts  at  corner  1 and  ends  at  comer  2.  The 
remaining  edges  are  defined  in  a similar  manner.  The  arrows  indicate  the  orientation  of 
the  edges  and  the  direction  of  increasing  node  numbers. 

The  topology  of  the  resulting  finite  element  grid  is  depicted  in  Figure  2.5-2.  Nodes  are 
created  first  along  edge  1,  then  in  successive  lines  terminating  along  edge  3.  The  user 
defines  the  number  of  nodes  along  edges  1 and  2,  which  also  defines  the  number  of  nodes 
for  edges  3 and  4.  The  relative  position  of  the  nodes  along  each  edge  may  be  controlled 
using  the  edge  weighting  parameter  EDGE-WEIGHTS. 
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CORNER  2 


CORNER  * 


CORNER  1 


Figure  2.5-2  Node  and  Element  Topology. 

Recognizing  that  the  surfaces  generated  by  procedure  GEN_SHELL  are  four  sided  surfaces 
in  cylindrical  coordinates,  it  will  be  shown,  by  example,  how  to  generate  segments  of 
cylinders,  cones,  annular  plates,  spirals,  and  more  general  surfaces.  For  applications  which 
require  a complete  axisymmetric  surface,  such  as  a 360  degree  cylinder,  the  procedure  has 
the  capability  of  joining  the  resulting  finite  element  mesh  where  two  sides  of  the  region  are 
coincident.  Closure  occurs  automatically  but  is  checked  only  along  edges  1 and  3.  Closure 
will  not  occur  between  edges  2 and  4.  Note  also  that  the  user  must  request  the  number  of 
nodes  along  edge  2 as  though  the  surface  were  not  closed.  This  requirement  is  to  say  that 
the  user  should  not  presume  closure  will  occur. 


2.5-  8 


CSM  Testbed  Procedures  Manual 


Revised  5/24/90 


Pre-Processing  Procedures 


General  Shells  and  Curved  Surfaces 


2. 5.4. 2 Cylindrical  Shell  Sections 

In  this  section  there  are  presented  examples  of  how  procedure  GEN.SHELL  may  be  used  to 
create  various  shell  segments  on  a right  circular  cylindrical  surface. 


In  the  following  example,  procedure  GEN.SHELL  is  used  to  generate  a cylindrical  segment 
with  radius  of  5 inches  and  length  of  10  inches.  Only  90  degrees  of  the  cylinder  is  generated 
(see  figure  2.5-3). 


[.SHELL  ( 

es.proc  * ’ESI* 

rtzl 

» 5.,0.,0. 

rtz2 

= 5. ,0. ,10. 

rtz3 

* 6. ,90.  ,10 

rtz4 

* 5. ,90. ,0. 

nodes.l 

“ 5 ; — 

nodes_2 

= 7 ) 

es.name 


»EX47* 


(a)  4-node  elements 


(b)  9-node  elements 


Figure  2.5>3  90  Degree  Cylindrical  Segment 
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This  example  creates  a complete  360  degree  cylindrical  shell  using  9-node  quadrilateral 
elements  (see  figure  2.5-4).  Note  that  midside  nodes  are  not  shown.  The  input  specifies 
elements  at  the  end  of  edges  1 and  3 to  be  5 times  longer  that  elements  at  the  beginning 
of  the  same  edges.  Closure  of  the  cylinder  is  obtained  by  defining  corner  points  1 and  4, 
and  corner  points  2 and  3,  to  be  coincident  in  the  r and  z directions,  with  a difference  in 
0 of  360  degrees. 


♦call  GEN_ SHELL  ( es.proc  ■ ’ESI*  ; es.name 


rtzl 

at 

5.,0.,0.  ; — 

rtz2 

2 

5. ,0.  ,10.  ; — 

rtz3 

= 

5., 360., 10.  ; - 

rtz4 

s 

5 . , 360 . , 0 . ; — 

nodes_l 

2 

11  ; - 

nodes. 2 

= 

25  ; — 

edge .weights 

2 

5. ,1. ,5. ,1.  ) 

»EX97»  ; — 


Figure  2.5-4  Right  Circular  Cylinder  - 9-node  Elements 
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By  simply  increasing  the  z coordinate  values  for  corner  points  3 and  4,  the  cylinder  wall 
can  be  made  to  spiral  about  the  z axis.  The  following  example  illustrates  this  technique. 
The  resulting  spiral  is  shown  in  figure  2.5-5.  This  configuration  may  be  used  to  model  a 
spring. 

♦call  GEN.SHELL  ( ®a_proc  ■ >ES1*  ; es.name  ■ »EX47’  ; 

rtzl  » 5.,0.,0.  ; — " 

rtz2  ■ 5. ,0.,2.  ; — 

rtz3  « 5., 720.,  12.  ; — 

rtz4  * 5., 720.,  10.  ; — 

nodes.l  ■ 5 ; — 

nodes_2  = 37  ) 
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The  following  example  produced  the  cylinder  of  skewed  elements  shown  in  figure  2.5-6. 

( es_proc  * ’ESI*  ; es.name  « >EX47’  ; — 


♦call  GEN_ SHELL 
rtzl 
rtz2 
rtz3 
rtz4 
nodes_l 
nodes_2 


es_proc  = 
- 5 
= 5 
* 5 
= 5 
» 7 
- 25 


> ’ESI  * 

*0. ,0.  j 

,90. ,10. 
,450., 10. 
,360. ,0. 

) 


Figure  2.5-6  Cylinder  With  Skewed  Elements 
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2. 5. 4.3  Conical  Shell  Sections 

In  this  section,  examples  of  how  procedure  GEILSHELL  may  be  used  to  create  shell  segments 
on  a conical  surface  are  presented. 

This  example  creates  a complete  360  degree  conical  shell  using  9-node  quadrilateral  ele- 
ments (see  figure  2.5-7).  Elements  are  defined  at  the  top  of  the  cones  to  be  1/5  as  long 
axially  as  those  at  the  base.  Closure  of  the  cone  is  obtained  by  defining  corner  points  1 
and  4,  and  corner  points  2 and  3,  to  be  coincident  in  r and  z directions,  with  a difference 
in  6 of  360  degrees. 

*call  GEN_ SHELL  ( es.proc  * ’ESI’  ; es.name  * ’EXST’  ; — 
rtzl  * 6. ,0. ,0.  ; — 

rtz2  * l.,0.,10.  ; — 

rtz3  = 1., 360., 10.  ; — 

rtz4  = 5. ,360. ,0.  ; — 

nodes_l  = 9 ; — 

nodes_2  = 25  ; — 

•dge.waights  ■ -4. ,1. ,-4. ,1.  ) 


t 

x 


Figure  2.5-7  Conical  Shell  - 0-Node  Elements 
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In  the  following  example,  procedure  GEN-SHELL  is  used  to  generate  an  unusual  shell  which 
lies  on  the  conical  surface  of  the  previous  example.  The  shell  spans  360  degrees  at  the  top 
but  only  spans  180  degrees  at  the  base  (see  figure  2.5-8). 

♦call  GEN_SHELL  ( es_proc  = ’ESI*  ; es.name  = ,EX47»  ; — 
rtzl  * 5. ,90. ,0.  ; — 

rtz2  * l.,0.,10.  ; — 

rtz3  * 1., 360., 10.  ; — 

rtz4  = 5. ,270. ,0.  ; — 

nod6s_l  =11  ; — 

nodes _2  * 21  ; — 

edge_ weights  * -3. ,1. ,-3. ,1.  ) 


Figure  2.5-8  Unusual  Conical  Shell 


2.5-  14 


CSM  Testbed  Procedures  Manual 


Revised  5/24/90 


Pre-Processing  Procedures 


General  Shells  and  Curved  Surfaces 


2.S.4.4  Annular  Plates 

In  this  section  examples  of  how  procedure  6EN.SHELL  may  be  used  to  create  annular  shell 
segments  are  presented. 


This  example  creates  a 90  degree  annular  shell  segment  using  9-node  quadrilateral  elements 
(see  figure  2.5-9).  Note  that  the  midside  nodes  are  not  shown.  The  plate  has  an  inner  radius 
of  1 inch  and  the  outer  radius  of  5 inches.  Element  size  weighting  is  also  demonstrated. 


*call  GEN.SHELL  ( es.proc  * ’ESI*  ; 

rtzl  » l.,0.,0.  ; 

rtz2  * 5.,0.,0.  ; 

rtz3  « 5 . , 90 . , 0 . ; 

rtz4  * 1. ,90. ,0.  ; 

nodes. 1 » 11  ; — 

nodes_2  * 11  ; — 

edge. weights  =6.,1.,6.,1. 


es.name 


Figure  2.5-9  Flat  Annular  Shell 
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By  simply  increasing  the  z coordinate  values  for  corner  points  3 and  4,  the  annular  surface 
can  be  made  to  spiral  about  the  z axis.  The  following  example  illustrates  this  technique. 
The  resulting  spiral  is  shown  in  figure  2.5-10. 


♦call  GEN_ SHELL  ( es.proc  ■ *ES1»  ; •s.nama  ■ *EX47»  ; — 


rtzl 

» 

3.,0.,i 

rtz2 

8 

5 . |0 . 

rtz3 

3 

5., 720 

rtz4 

S 

3., 720 

nodes.l 

8 

5 ; — 

nodes _2 

8 

33  ) 

Figure  2.5-10  Spiraling  Shell 
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2. 5. 4. 5 Exotic  Shell  Sections 


In  this  section  examples  of  how  procedure  GEN.SHELL  may  be  used  to  create  unusual  shell 
segments  are  presented. 


This  example  creates  a spiraling  surface  which  changes  from  a flat  to  a vertical  shell  while 
increasing  in  z direction  and  decreasing  in  radius  (see  figure  2.5-11). 


♦call  GEN_ SHELL  ( 
rtzl 
rtz2 
rtz3 
rtz4 
nodes. 1 
nodes_2 


es.proc  * ’ESI*  ; 

* 3. ,0. ,0.  ; 

- 5.,0.,0.  ; 

« 1. ,720. ,12. 
= 1., 720., 10. 
■ 5 ; — 

« 45  ) 


s.name  * *£197’ 
> 


Figure  2.5-11  Exotic  Spiral  Shell 
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In  the  following  example,  procedure  GEN.SHELL  is  used  to  generate  a vertical  coiled  shell 
(see  figure  2.5-12). 

♦call  GEN.SHELL  ( es.proc  * 'ESI*  ; es.nama  * »EX47*  ; — 
rtzl  * 0. ,0. ,0.  ; — 

rtz2  = 0.  ,0.  ,1.  ; — 

rtz3  » 3. ,1080. ,1.  ; — 

rtz4  - 3., 1080., 0.  ; — 

nodes.l  = 5 ; — 

nodes_2  = 85  ) 


Figure  2.5-12  Vertical  Coiled  Shell 
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Finally,  an  arbitrary  shell  is  created  to  demonstrate  the  generality  of  the  procedure 
GENJ5HELL  (see  figure  2.5-14). 

*call  GEN_SHELL  ( es.proc  * ’ESI’  ; es.name  * »EX47>  ; — 
rtzl  * -2.,-25.,0.  ; — 

rtz2  * 7., 190., -3.  ; — 

rtz3  = -2., 230., 7.  ; — 

rtz4  * 6. ,0. ,10.  ; — 

nodes.l  * 25  ; — 

nodes_2  * 25  ) 
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m««h  lor  * partial  or  complata  cylindrical  shell  using  4 or 
9 noded  quadrilateral  elements. 

Note  that  when  generating  a 360  degree  closed  shell, 
the  caller  should  specify  the  number  of  circumferential  nodes  as 
if  the  cylindrical  shell  were  not  closed,  or  in  other  words, 
the  line  of  nodes  where  closure  occurs  should  be  counted  twice. 
There  will  only  be  one  set  of  nodes  actually  create  where 
closure  occurs. 

There  is  no  verification  performed  to  detect  overlapping  or 
otherwise  improbable  element  generation.  This  should  be  done 
prior  to  calling  this  utility. 

If  a procedure  to  generate  shell  section  properties  is  not  provided, 
the  isotropic  section  described  by  E,  NU,  WTDEN,  and  THICKNESS  will 
be  automatically  generated.  (see  [section.prc]  parameter) 

A boundary  condition  procedure  should  be  provided  but  is 
optional.  If  not  provided,  no  boundary  conditions  will  be 
defined.  (see  [bc.procedure]  parameter) 

♦remark  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦***♦♦*♦♦♦♦♦♦*♦ 

♦remark  GEN.SHELL  MODEL  GENERATION  PROCEDURE 
♦remark  *♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*♦♦♦♦♦♦♦*♦♦♦♦♦*** 

♦def/i  nl  ® [nodes.1] 

*def/i  n2  = [nodes_2] 

*def/e  rtzl[l:3]  - [rtzl] 

*def/e  rtz2[l:3]  = [rtz2] 

♦def/e  rtz3[l:3]  = [rtz3] 

♦def/e  rtz4[l:3]  = [rtz4] 

♦def/e  w[l:4]  = [edge. weights] 

♦def/e  rc [ 1 : 4]  = <rtzl[l]>,<rtz2[l]>,<rtz3[l]>,<rtz4[l]> 

♦def/e  tc[l:4]  = <rtzl[2]>,<rtz2[2]>,<rtz3[2]>,<rtz4[2]> 

♦def/e  zc [1 :4]  = <rtzl[3]>,<rtz2[3]>,<rtz3[3]>,<rtz4[3]> 


Register  Element  and  Define  Macros:  ES.NEN,  ES.NIP,  ESJNSTR,  etc. 

♦call  ES  ( function  = ’DEFINE  ELEMENTS  * ; es.proc  = [es.proc];  — 
e s .name  = [es.name]  ; es.pars  = [es.pars]  ) 


Define  nodal  coordinates  and  element  connectivities  into 
separate  formatted  files.  These  files  are  gauranteed  to  have 
unique  names  that  are  not  currently  in  use  in  the  current 
directory. 


♦def/i  chk_ closure  = 1 
[xqt  mesh 

♦if  <mesh.err>  /then 
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♦remark  Error  occurred  during  MESH  processor  execution, 
♦remark  GEN.SHELL  procedure  terminated. 

♦ eof 
♦endif 


Construct  Model  Data-base  with  TESTBED  Processors 


[XQT  TAB 

START  <tot_nodes> 

ONLINE  = [online] 

JLOC 

FORMAT  = 2 . use  cylindrical  coordinate  system 

♦show  macros  node.file 
♦add  <node.file> 


Define  DOF  Directions 

SSSSSSESSSSSS3SSSSSSS 

JREF 


NREF  = [jref] 

1 <tot_nodes> 


Use  local  cylindrical  basis  vectors 
for  nodal  DOFS: 

u,v,w  ♦ radial , circumfer.,  axial 
same  convention  for  all  nodes 


Define  Load/Boundary  Conditions  If  Procedure  Supplied 

♦if  <not(<if else( [bc.procedure] ; ;1;0)>)>  /then 

♦call  [BC. PROCEDURE]  ( nodes.l  = <nl>  ; — 

nodes. 2 = <n2>  ; — 
es.nodes  = <es.nen>  ; — 
drilling.dof  = [drilling.dof]  ) 

♦else 

♦remark  *♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦*♦♦♦ 

♦remark  BOUNDARY  CONDITIONS  NOT  SPECIFIED 
♦remark  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦***♦♦♦**♦** 

♦endif 


3335S3S3S3SS3333533SCS3S3S3SSS3 

Define  Shell  Section  Properties 
=============================== 

♦if  <not (<if else ( [sect ion.prc] ; ;1;0)>)>  /then 
♦call  [section.prc]  ( nsect  = [nsect]  ) 

♦ else 


Define  the  default  Material  and  Section  Properties 
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«del/e  G = < [E]/(2.*(1+[MG]))  > 

[XQT  AUS 

Build  Table  o 1 Material  Data 

TABLE(ni=16,nj=l):  OMB  DATA  1 1 
i = 1,2, 3, 4, 6, 6, 7, 8, 9 

j = 1 

Ell  NU12  E22  G12  G13  G23  ALPHA1  ALPHA2  WTDEN 
[E]  [NU]  [E]  <G>  <G>  <G>  0.  0.  [WTDEN] 


Build  Laminate  Data  Tables 


TABLE(ni=3,nj=l,itype=0);  LAM  OMB  [nsect]  1 
i=  1,2,3 

j S 1 . matl  # layer  thickness  matl  angle 

1 [thickness]  0. 

[XQT  LAU 
ONLINE  = 2 
♦endif 


Generate  Elements 


[XQT  ELD 
<ES_EXPE_CMD> 

NSECT  = [nsect] 

. Deline  element  nodal  connectivity 

♦show  macros  elem_file 
♦add  <elem_lile> 


Suppress  DOFs  not  supported  by  elements 


♦il  < [AUTO.DOF.SUP]  > /then 

♦call  ES  ( function  = 'DEFINE  FREEDOMS'  ) 
♦endii 

♦ end 
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3.0  Solution  Procedures 

The  procedures  documented  in  this  chapter  are  for  specific  analysis  tasks.  These  procedures 
provide  examples  of  how  to  perform  common  structural  analysis  tasks  (c.g.}  static  solution, 
eigensolution)  using  the  command  language  and  processors  available  in  the  CSM  Testbed 
Software  System. 

A summary  of  the  procedures  found  in  this  chapter  is  provided  in  Table  3.0-1. 


Table  3.0-1  Solution  Procedures 

Procedure  Najne 

Analysis  Description 

L_DYNAMIC_0 

Linear  transient  dynamic  analysis  using  modal  anal- 
ysis 

L_DYNAMIC_1 

Linear  transient  dynamic  analysis  using  Newmark  al- 
gorithm 

L-STABIL-1 

Linear  stability  (buckling  eigenvalue)  analysis  with 
prescribed  prestress 

L-STABIL.2 

Linear  stability  (buckling  eigenvalue)  analysis  with 
linearly-computed  prestress 

L.STATIC 

Linear  static  analysis 

L-VIBRAT-0 

Linear  vibration  (eigenvalue)  analysis  about  un- 
stressed state 

L_VIBRAT_1 

Linear  vibration  (eigenvalue)  analysis  about  a pre- 
scribed prestressed  state 

L_VIBRAT_2 

Linear  vibration  (eigenvalue)  analysis  about  a linearly- 
computed  prestressed  state 

NL-STATIC-l 

Nonlinear  static  analysis;  modified  Newton  iteration 
with  arc-length  control 

NL-STATIC-2 

Advanced  Riks  method 

NL-DYNAMIC.l 

Nonlinear  Dynamic  Analysis 
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3.1  Processor  L_DYNAMIC_0 
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3.2  Procedure  L_DYNAMIC_1 

3.2.1  GENERAL  DESCRIPTION 

Procedure  L_DYNAMIC_1  performs  a linear  transient  dynamic  analysis  using  either  the 
Newmark-/?  implicit  direct  time  integration  procedure  outlined  in  reference  3.2-1.  When 
Procedure  L_DYNAMIC_1  is  called,  a transient  response  calculation  by  direct  integration 
of  the  system  equations  with  a fixed  time  step  is  performed.  Procedure  L_DYNAMIC  calls 
Procedure  NEVMARK  which  implements  the  well-known  Newmark  integration  method  for 
second  order,  coupled  systems.  Parameters  such  as  the  names  of  the  system  stiffness  and 
mass  matrices,  the  time  step,  and  the  total  number  of  time  steps  in  the  analysis  are  formal 
arguments  to  Procedure  L_DYHAMIC_1.  In  Procedure  NEWMARK,  extensive  use  is  made  of  the 
CLAMP  macro  expression  capability  for  calculating  integration  constants  and  controlling 
the  algorithm.  The  initial  acceleration  at  time  t = 0 is  calculated  from  the  given  initial 
displacement  and  velocity  vectors.  This  is  done  by  using  processor  AUS  to  set  up  the 
equations  of  motion  at  t=0,  and  processors  INV  and  SSOL  to  solve  for  the  acceleration. 
At  each  subsequent  time  step,  processor  AUS  is  used  to  set  up  the  recursion  relations,  and 
processor  SSOL  is  used  to  solve  for  the  displacement  vector  at  the  next  time  step.  Then 
velocity  and  acceleration  vectors  are  calculated  and  selectively  printed. 

3.2.2  THEORY 

3. 2. 2.1  Introduction 

The  equations  of  motion  for  an  undamped,  linear  elastic  structure  at  time  t A t are 


Miin-At  + Kut+A(  = Pt+At  (3.2  — 1) 

where 

M is  the  mass  matrix 
K is  the  linear  elastic  stiffness  matrix 
Pt+At  is  the  load  vector  at  time  t + At 
Ut+At  is  the  displacement  vector  at  time  t + At 
i*t+At  is  the  acceleration  vector  at  time  t + At 


3. 2. 2. 2  Newmark-#  Method 

The  Newmark-/?  method  is  an  implicit  direct  time  integration  procedure  that  is  based  on 
the  following  assumptions: 

Ut+At  = Ut  + [(1  — 7)iit  + 7iit+At  ] At  (3.2  — 2) 

Ut+At  = ut  + Atut  + [(^  - /?)iit  +/?tit+At  ](A<)2  (3.2  - 3) 

where 
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iit+At  is  the  velocity  vector  at  time  t + A t 
A f is  time  step  size 

The  parameters  7 and  (3  determine  integration  accuracy  and  stability.  When  7 = A and 
(3  = i,  the  linear  acceleration  method  is  obtained  (i.e.,  the  acceleration  is  assumed  to  vary 
linearly  over  a time  step).  When  7=5  and  (3  = j,  Newmark’s  original,  constant-average- 
acceleration  method  (also  called  the  trapezoidal  rule)  is  obtained. 


3.2.3  ALGORITHM 


The  Procedure  L_DYNAMIC_1  closely  follows  the  computational  procedure  presented  in  ref- 
erence 3.2-1.  Briefly,  an  outline  of  the  procedure  is  as  follows: 

1.  Select  time  step  size,  At,  and  parameters  7 and  /3.  Calculate  integration  constants: 


7 - 5 ’ /,-i<5+7)1 


a-o 


«3 


1 


a6  = At(l  -7); 


a,  - 7 ■ • 

1 

1 (3  At' 

02  “ /*(a  ty 

7 1 

At/7  \ 

a7  = 7 A t 

2.  Initialize  displacements  u0,  velocities  u0,  and  accelerations  ii0. 

3.  Form  effective  stiffness  matrix  K 


K = K + a0M 


4.  Decompose  K 

k = ldlt 

For  each  time  step: 

5.  Calculate  effective  loads  Rt+At 

Rt+At  = Pt+  At  + M(o0Ut  + U2Ut  4- <l3U() 

6.  Solve  for  displacements  at  time  f + At 

LDLrut+At  = Rt+At 

7.  Calculate  accelerations  and  velocities  at  time  t + At 


iit+At  = Oo(Ut+At  — Ut)  — 02Ut  — ®3iit 
Ut+At  = Ut  4-  a«iit  4-  a7iit+At 
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This  procedure  neglects  damping  and  assumes  that  a single,  constant  time  step  size  At  is 
used  throughout  the  analysis. 

3.2.4  PROCEDURE  USAGE 

Procedure  L_DYNAMIC_1  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 


*call  L_DYNAMIC_1  ( argl  = vail  ; arg2  * val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  Procedure  L_DYNAMIC_1  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  Procedure  L_DYNAMIC_1,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 


Argument  Default  Value  Meaning 

DELT  - Time  increment,  At 

HSTEP - Number  of  time  steps 

BETA  0.25  Time  integrator  parameter 

GAMMA  0.50  Time  integrator  parameter 

3.2.5  ARGUMENT  DESCRIPTION 
» . 3.2.5.1  BETA 

Newmark-/?  time  integrator  parameter,  /3  (default:  1/4). 

3.2. 5.2  DELT 

Time  step  size.  This  argument  specifies  the  size  of  the  time  step  to  be  used  in  the  analysis. 
A constant  step  size  is  assumed  per  procedure  call. 

3.2. 5.3  GAMMA 

Newmark-/?  time  integrator  parameter  7 (default:  1/6). 
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3. 2. 5.4  NSTEP 

Number  of  time  steps  to  march.  This  argument  specifies  the  number  of  time  steps  to  march 
in  the  transient  response  prediction  using  a constant  time  step  size  of  DELT. 


3.2.0  PROCEDURE  FLOWCHART 

L_DYNAMIC_1  (main  procedure) 

NEVHARK  (Newmark-/?  time  integration) 

3.2.7  LIMITATIONS 

None. 

3.2.8  ERROR  MESSAGES  AND  WARNINGS 

None. 


3.2.9  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  L_DYNAMIC_1  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦call  LDYNAMICl 


( dolt  = 0.02 
nstep  = 100 
beta  =0.25 
gamma  = 0.50  ) 


3.2.10  PROCEDURE  LISTING 


3.2.11  REFERENCES 

3.2-1  Bathe,  K.  J.,  Finite  Element  Procedures  in  Engineering  Analysis,  Prentice-Hall, 
Inc.,  Englewood  Cliffs,  New  Jersey,  1982,  pp.  511-512. 
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3.3  Procedure  L_STABIL_1 

3.3.1  GENERAL  DESCRIPTION 

Procedure  L_STABIL_1  performs  linear  stability  analysis  using  an  eigensolver  selected  by  the 
global  macrosymbol  eigensolver_nane  (e.$.,  EIG2,  LAN,  LANZ)  and  structural  element 
(ESt)  processors  based  on  the  generic  element  processor  template.  The  procedure  assumes 
that  the  finite  element  model,  loads,  and  boundary  conditions  have  already  been  generated, 
that  the  prebuckling  stress  state  has  been  specified,  and  that  the  buckling  loads  and  mode 
shapes  need  to  be  calculated.  The  prebuckling  stress  state  (*.e.,  prestress  state)  is  specified 
by  prescribing  values  for  procedure  L_STABIL_1  arguments.  A linear  stability  analysis  is 
performed  using  this  prescribed  stress  state. 

3.3.2  THEORY 

Linear  elastic  stability  analyses  may  be  formulated  using  the  concept  of  adjacent  equilib- 
rium. Membrane  forces  in  beams,  plates,  and  shells  result  in  an  equilibrium  configuration 
in  which  the  deformation  pattern  is  tangent  to  the  midsurface  of  the  structure.  However, 
another  equilibrium  configuration  involving  out-of-plane  deflections  and  rotations  may  be 
adjacent  to  this  membrane  state.  Buckling  occurs  when  this  membrane  strain  energy  is 
converted  to  bending  strain  energy.  The  linear  elastic  stability  analysis  is  an  eigenvalue 
problem  to  calculate  the  critical  load  for  the  bifurcation  in  the  solution  ( e.g .,  change  from 
a membrane  state  to  a bending  state).  This  eigenvalue  problem  can  be  written  as 


where 


Kg(a) 

<t>i 

A, 


K<t>{  + AjK^rr)^  = 0 * = 1,2,... 

= assembled  linear  elastic  stiffness  matrix 
= assembled  geometric  stiffness  matrix 
= t-th  eigenvector  or  modeshape 
= t-th  eigenvalue  or  buckling  load  factor 


(3.3-1) 


The  matrix  denoted  by  has  been  called  the  initial  stress  stiffness  matrix,  the  differential 
stiffness  matrix,  the  geometric  stiffness  matrix,  and  the  stability  coefficient  matrix 
see  ref.  3.3-1).  It  is  independent  of  the  elastic  properties  of  the  structure  and  dependent 
on  the  geometry,  displacement  field,  and  state  of  stress.  Herein  the  matrix  will  be 
referred  to  as  the  geometric  stiffness  matrix. 

A general  formulation  for  the  geometric  stiffness  matrix  is  presented  in  reference  3.3-1. 
Strains  can  be  written  as 

6 = cl  + eNL  (3.3  - 2) 

where  contains  the  linear  strain-displacement  terms  and  €nl  contains  the  higher-order 
or  nonlinear  strain-displacement  terms.  For  a given  stress  state  <To , elastic  strain  energy 
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is  stored  and  can  be  expressed  as 


where 


U — Ul  + Unl 

(3.3  - 3) 

U = \ Jv  eT<T°dV 

(3.3  - 4a) 

UL  = \Jvcl<rodV 

(3.3  - 45) 

Unl  = 2 Jv  eNL<To<fF 

(3.3  - 4c) 

The  geometric  stiffness  matrix  is  derived  from  the  strain  energy  produced  by  stresses  acting 
through  displacements  associated  with  the  nonlinear  strain-displacement  relations.  These 
relations  couple  the  membrane  and  bending  effects.  Typically  the  strain-displacements 
relations  are  written  using  index  notation  as 


£*j  = \ [®'ui  + fyu*  + ^iUkdjUk] 


(3.3  - 5) 


where  uy  = (uyv,w)  for  i = 1,2,3,  respectively,  di  denotes  differentiation  with  respect  to 
tth  coordinate  direction  and  summation  over  repeated  indices  is  implied.  Let  d denote  the 
nodal  degrees  of  freedom,  then 


where 


6 = Gd 

6 = { dxu , dyu,  dzu,  dxv,  dyv,  dzv , dxw,  dyw , dzw} 


(3.3  - 6) 


The  coefficients  of  G are  obtained  by  differentiating  the  element  shape  functions.  Finally 
the  matrix  Q is  defined  as 


Q = 


~ dxu 

0 

0 

dxV 

0 

0 

dxw 

0 

0 

0 

dyU 

0 

0 

dyV 

0 

0 

OyW 

0 

0 

0 

dzu 

0 

0 

dzv 

0 

0 

dzw 

6yU 

dxu 

0 

dyV 

dxv 

0 

SyW 

dxw 

0 

0 

dzu 

8yU 

0 

dzv 

OyV 

0 

dzw 

8yW 

Si 

0 

8XU 

dzv 

0 

dxv 

dzw 

0 

dxw 

(3.3  - 7) 


With  these  definitions  the  nonlinear  strains  given  by  equation  (3.3-2)  can  be  written  as 


*ni,  = ^QGd 

The  vector  of  initial  stresses  is 

O"o  = {ff*0  0yO  &z0  TxyO  TyZ 0 


(3.3  - 8) 


(3.3  - 9) 
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Substituting  equations  (3.3-6)  through  (3.3-9)  into  equation  (3.3-4c)  gives 


UNL  = \dT(J^GTQT<r0dV) 


However,  the  term  QT  <To  can  be  written  as 


where 


QT  CTo  = 


s 0 
0 s 
0 0 


0 

0 

s 


6 = S(cr0)6 


0*350 

TzyO 

^nO 

TXyO 

<ryo 

Tyz  0 

TxzO 

TyzO 

crzo 

(3.3  - 10) 


(3.3-11) 


(3.3  - 12) 


With  these  expressions,  a general  form  of  the  geometric  stiffness  matrix  can  be  written  as 


Kg(<r)  = / G^o-oJG dV  (3.3-13) 

Jv 

which  is  symmetric  and  explicitly  dependent  on  the  stress  state. 

The  stress  state  used  to  form  the  geometric  stiffness  matrix  may  be  obtained  in  two  ways. 
The  first  way  is  first  to  perform  a linear  static  stress  analysis  for  the  given  load  set  and 
constraint  set.  This  way  is  used  in  procedure  L-STABIL-2.  The  second  way  is  to  specify,  in 
advance,  the  values  of  the  stress  components  given  in  equation  (3.3-11)  (t'.e.,  specify  the 
prestress  state).  This  way  is  used  in  procedure  L_STABIL_1. 


3.3.3  ALGORITHM 

The  algorithm  used  to  solve  equation  (3.3-1)  depends  on  the  value  of  the  global  macrosym- 
bol eigensolver-name.  Processor  EIG2  is  used  if  eigensolver_name  is  defined  to  be  EIG2. 
This  processor  uses  a nodal-block  sparse  matrix  approach  as  described  in  reference  3.3-2. 
Processor  LAN  is  used  if  eigensolver_name  is  defined  to  be  LAN.  Processor  LANZ  is  used 
if  eigensolver-name  is  defined  to  be  LANZ.  These  processors  are  based  on  the  Lanczos 
algorithm  as  described  in  references  3.3-2  to  3.3-4. 


3.3.4  PROCEDURE  USAGE 

Procedure  LJSTABIL.l  may  be  invoked  by  the  *call  directive,  and  following  it  by  a list  of 
arguments  separated  by  semicolons(;)  and  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 


•call  L_STABIL_1  ( argl  * vail;  arg2  * val2;  ...) 
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where  argi  are  argument  names  and  valt  are  the  corresponding  values.  The  following 
axe  valid  arguments  for  procedure  L_STABIL_1;  note  that  those  arguments  without  default 
values  are  mandatory,  while  the  others  are  optional. 


Argument  Default  Value  Meaning 


PS_1 

PS_2 

PS_3 

— 

Prebuckling  membrane  stress  resultant  N% 
Prebuckling  membrane  stress  resultant  N° 
Prebuckling  membrane  stress  resultant  N%y 

BC0N.SET 

1 

Constraint  set  for  buckling  analysis 

ERR0R-T0L 

.0001 

Convergence  criterion  for  eigenvalues 

FUNCTION 

ALL 

Select  function  to  be  performed  by  procedure 

INIT.VECTOR 

0 

Number  of  initial  vectors  used  to  span  the  subspace 

ISEQ 

0 

Resequencing  method  to  be  used 

LDI 

1 

Local  device  index 

LOAD-SET 

1 

Load  set  number 

KNAHE 

K 

First  word  of  the  name  of  the  dataset  containing  the 
assembled  stiffness  matrix 

MAX-ITERS 

20 

Maximum  number  of  iterations  allowed 

N.GR0UPS 

1 

N-MODES 

1 

Number  of  eigenvalues  to  converge 

PRINT 

<false> 

Flag  to  print  displacement  solution,  internal  forces,  and 
element  stresses,  and  eigenvectors 

RENUMBER 

<true> 

Flag  to  resequence  node  numbers  for  equation  solver 

SHIFT 

0.0 

Eigenvalue  shift 

Tables  3.3-1,  3.3-2,  and  3.3-3  list  the  datasets  used  or  created  by  procedure  L_STABIL_1, 
the  procedures  invoked  by  procedure  L-STABIL.l,  and  the  processors  invoked  by  procedure 
L-STABIL-1,  respectively. 
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Table  3.3-1  Datasets  Input/Output  by  procedure  L_STAB1L_1 


Dataset 


AMAP..ic2.isize 


BUCK.EVAL.*.;t 


BUCK.MODE.*.;t 


Description 


Factorization  Map  for  INV 


Buckling  eigenvalues 


Buckling  eigenvalues 


<ES_NAME>.EFIL.O.nnod  Element  Computational  Data 


ES.SUMMARY 


ES  Processor  Status 


DEF.<ES_NAME>.O.nnod  Element  Definition  (Connectivity) 


DIR.<ES_NAME>.O.nnod  Element  EFIL  Directory 


INV.KSHF.jt  Factored  Shifted  System  Matrix 


INV.<KNAME>.>t 


JDF1.BTAB.1.8 


KG.SPAR.jdf2 


KMAP..ic2.isize 


<KNAME>.SPAR.jdf2 


Factored  System  Matrix 


Model  Summary 


Assembled  geometric  stiffness  matrix 


Model  Connectivity  Map 


Assembled  system  matrix 


= <load_set>  and  j = <cons_set> 


Input  Output 


V 


V 


V 


V 


Table  3.3-2  S 

>ub-Procedures  Invoked  by  procedure  L-STABIL.l 

Procedure 

Type 

Function 

ES 

External 

Element  utility  procedure 

FACTOR 

External 

Factors  assembled  stiffness  matrix 

LJ5TABIL-1 

Internal 

Main  procedure 
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Table  3.3-3  Processors  Invoked  by  procedure  L_STABIL_1 


Procedure 

Type 

Function 

AUS 

Internal 

Arithmetic  Utilities 

E 

Internal 

Initializes  EFIL  datasets 

EIG2 

Internal 

Solve  eigenvalue  problem  using  subspace  iteration 

ESi 

External 

Element  processors  based  on  GEP 

K 

Internal 

Assemble  system  matrix 

LAN 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

LANZ 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

RSEQ 

Interned 

Resequences  nodes  for  equation  solving 

TOPO 

Internal 

Generates  nodal  topology  maps 

VPRT 

Internal 

Print  SYSVEC  system  vectors 

3.3.5  ARGUMENT  DESCRIPTION 

3.3.5. 1 BCON-SET 

Constraint  set  number  for  buckling  analysis  (default:  l).  This  argument  selects  which 
constraint  set  to  use  in  solving  the  linear  stability  problem. 

3.3.5. 2 ERROR-TOL 

Convergence  criterion  for  eigenvalues  (default:  0.0001).  For  the  fc-th  iteration,  the  error 
measure  for  the  i-th  eigenvalue  is 

. II(A?-A?-‘)II 

‘ _ IWII 

The  i-th  eigenvalue  is  converged  if  e*  is  smaller  than  ERR0R.T0L. 

3.3. 5.3  FUNCTION 

Select  function  to  be  performed  by  procedure  L-STABIL.1  (default:  ALL).  This  procedure 
may  be  used  to  perform  two  functions.  For  FUNCTION=ALL,  the  element  data  are  initialized 
and  elemental  stiffness  matrices  formed;  nodal  resequencing  may  be  performed,  the  mesh 
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topology  is  analyzed,  the  system  stiffness  matrix  is  assembled  and  factored,  and  the  eigen- 
problem  is  solved.  For  FUNCTION=EIGEN,  procedure  L.STABIL.1  uses  a prescribed  prestress 
state  in  solving  the  eigenvalue  problem.  Using  the  FUNCTION  argument,  the  user  may  solve 
for  a variety  of  constraint  (boundary  conditions)  sets  on  a given  model  subjected  to  a 
variety  of  loading  conditions. 

3.3. 5.4  INIT-VECTOR 

Number  of  initial  vectors  used  to  span  the  subspace  (default:  0).  This  argument  defines 
the  number  of  trial  vectors  used  to  initiate  the  subspace  iteration.  If  INIT_VECT0R=0,  the 
number  of  initial  vectors  will  be  calculated  by  the  procedure  as 

INIT_VECTOR=MINIMUM  (2*N_M0DES,  N -MODES  + 8) 

3.3. 5. 5 ISEQ 

Resequencing  method  to  be  used  (default:  0).  If  the  argument  RENUMBER  is  <true>, 
then  nodal  resequencing  will  be  performed  using  processor  RSEQ.  The  method  used  by 
processor  RSEQ  to  resequence  the  nodes  depends  on  the  value  of  ISEQ.  If  the  argument 
ISEQ  is  greater  than  or  equal  to  zero,  then  that  method  will  be  used  (i.e.,  method=0 ,1,2,3; 
see  Section  6.1  of  the  CSM  Testbed  User’s  Manual,  ref.  3.3-2). 

3.3. 5.6  KNAME 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 

3.3. 5. 7 LDI 

Logical  device  index  (default:  l). 

3. 3. 5.8  MAX-ITERS 

Maximum  number  of  iterations  (default:  20).  This  argument  specifies  the  maximum  num- 
ber of  iterations  that  can  be  used  per  call  to  eigensolver. 

3.3. 5.9  N-GROUPS 


3.3.5.10  N-MODES 

Number  of  converged  eigenvalues  desired  (default:  l).  This  argument  specifies  the  number 
of  eigenvalues  to  calculate  to  a convergence  criterion  of  ERROR-TOL. 

3.3.5.11  PRINT 

Flag  to  print  modeshapes  (default:  <false>).  If  printing  of  these  computed  results  is 
requested,  processor  VPRT  will  be  used  to  print  the  buckling  modeshapes. 
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3.3.5.12  PS-1 

Prescribed  membrane  stress  resultant  N°  for  the  prestressed  state. 

3.3.5.13  PS_2 

Prescribed  membrane  stress  resultant  N°  for  the  prestressed  state. 

3.3.5.14  PS-3 

Prescribed  membrane  stress  resultant  N°y  for  the  prestressed  state. 

3.3.5.15  RENUMBER 

Flag  to  resequence  node  numbers  prior  to  equation  solving  (default:  <true>).  If  the  argu- 
ment RENUMBER=<true>,  then  processor  RSEQ  will  be  used  to  perform  nodal  resequencing, 
otherwise  no  resequencing  will  be  performed.  Note  that  the  nodal  resequencing  may  greatly 
reduce  the  time  required  to  factor  and  solve  the  linear  system  of  equations. 

3.3.5.16  SHIFT 

Eigenvalue  shift  (default:  0.0).  Converged  eigenvalue  will  only  be  obtained  for  eigenvalues 
greater  than  SHIFT.  The  shift  parameter  refers  to  the  shift  in  the  buckling  load  factor. 


3.3.0  PROCEDURE  FLOWCHART 


L-STABIL.l 

INITIALIZE 

STIFFNESS 

STIFFNESS 

FACTOR 

EIGEN 


(main  procedure) 

(initialize) 

(form  K) 

(form  K9) 

(factor  using  buckling  boundary  conditions) 
(perform  eigenvalue  analysis) 


3.3.7  LIMITATIONS 

None. 

3.3.8  ERROR  MESSAGES  AND  WARNINGS 

None. 
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3.3.8  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  L.STABIL.1  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or 
all  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


( FUNCTION 

» ALL  ; 

BCON.SET 

X 

1 

> 

ERR0R.T0L 

X 

.0001  ; 

INIT_ VECTOR 

- 0 ; - 

ISEQ 

* 

-1 

9 *“ 

KNAME 

* 

K 

) ” 

MAX. ITERS 

s 

20 

— 

N.MODES 

E 

1 

— 

N.GROUPS 

= 

1 

— 

PS.l 

— 

PS.2 

— 

PS.3 

— 

PRINT 

= 

<true> 

RENUMBER 

X 

<true> 

SHIFT 

s 

0 

0 ; 

— . Select  function 

. Select  buckling  constraint  set 

— . Eigenvalue  convergence  criterion 

- . Humber  of  initial  vectors 

- . Select  resequencing  method 

- . First  word  of  stiffness  matrix 

- . dataset  name 

Maximum  number  of  iterations 
Number  of  eigenvalues 


; — . PRINT  flag 
; — . RESEQUENCING  flag 
Eigenvalue  shift 
) 


Before  procedure  L-STABIL.1  is  called,  the  global  macrosymbol  eigensolver_name  should 
be  defined  as  described  in  Section  3.3.3;  otherwise,  the  default  value  of  EIG2  will  be  used. 


3.3.10  PROCEDURE  LISTING 


3.3.11  REFERENCES 

3.3- 1  Cook,  Robert  D.:  Concepts  and  Applications  of  Finite  Element  Analysis.  (Second 

Edition).  John  Wiley  and  Sons,  Inc.,  New  York  1981. 

3.3- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 

3.3- 3  Bostic,  S.  W.  and  Fulton  R.  E.:  A Lanczos  Eigenvalue  Method  on  a Parallel  Com- 

puter. AIAA  Paper  No.  87-0725-CP. 

3.3- 4  Jones,  Mark  T.  and  Patrick,  Merrell  L.:  The  Use  of  Lanczos ’s  Method  to  Solve 

the  Large  Generalized  Symmetric  Definite  Eigenvalue  Problem.  NASA  CR-181914, 
September  1989.  (Also  available  as  ICASE  Report  No.  89-69). 
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3.4  Procedure  L_STABIL_2 

3.4.1  GENERAL  DESCRIPTION 

Procedure  L_STABIL_2  performs  linear  stability  analysis  using  an  eigensolver  selected  by  the 
global  macrosymbol  eigensolver_name  (e.g.,  EIG2,  LAN,  LANZ)  and  structural  element 
(ESt)  processors  based  on  the  generic  element  processor  template.  The  procedure  assumes 
that  the  finite  element  model,  loads,  and  boundary  conditions  have  already  been  generated, 
and  that  the  nodal  displacements,  reaction  forces,  element  stresses,  and  buckling  loads 
and  mode  shapes  need  to  be  calculated.  The  applied  loads  may  be  due  to  a combination 
of  specified  forces  and  displacements,  and  one  constraint  (i.e.,  boundary  condition)  set 
is  permitted  per  procedure  call.  A linear  elastic  stress  analysis  is  performed  first  using 
procedure  L_STATIC  (see  Section  3.5)  to  calculate  the  prebuckling  stress  state  (i.e.,  prestress 
state).  After  the  linear  static  solution,  a linear  stability  analysis  is  performed. 


3.4.2  THEORY 


Linear  elastic  stability  analyses  may  be  formulated  using  the  concept  of  adjacent  equilib- 
rium. Membrane  forces  in  beams,  plates,  and  shells  result  in  an  equilibrium  configuration 
in  which  the  deformation  pattern  is  tangent  to  the  midsurface  of  the  structure.  However, 
another  equilibrium  configuration  involving  out-of-plane  deflections  and  rotations  may  be 
adjacent  to  this  membrane  state.  Buckling  occurs  when  this  membrane  strain  energy  is 
converted  to  bending  strain  energy.  The  linear  elastic  stability  analysis  is  an  eigenvalue 
problem  to  calculate  the  critical  load  for  the  bifurcation  in  the  solution  (e.g.,  change  from 
a membrane  state  to  a bending  state).  This  eigenvalue  problem  can  be  written  as 


where 


K<f>i  + XiKgiaWi  = 0 * = 1,2, ...  (3.4-1) 

K = assembled  linear  elastic  stiffness  matrix 
Kff(<r)  = assembled  geometric  stiffness  matrix 
4>i  = i-th  eigenvector  or  modeshape 

A i = t-th  eigenvalue  or  buckling  load  factor 


The  matrix  denoted  by  K9  has  been  called  the  initial  stress  stiffness  matrix,  the  differential 
stiffness  matrix,  the  geometric  stiffness  matrix,  and  the  stability  coefficient  matrix  (e.g., 
see  ref  3.4-1).  It  is  independent  of  the  elastic  properties  of  the  structure  and  dependent  on 
the  geometry,  displacement  field,  and  state  of  stress.  Herein  the  matrix  K9  will  be  referred 
to  as  the  geometric  stiffness  matrix. 

A general  formulation  for  the  geometric  stiffness  matrix  is  presented  in  reference  3.4-1. 
Strains  can  be  written  as 

e = + fNL  (3.4  - 2) 
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where  cl  contains  the  linear  strain-displacement  terms  and  €nl  contains  the  higher-order 
or  nonlinear  strain-displacement  terms.  For  a given  stress  state  <r0,  elastic  strain  energy 
is  stored  and  can  be  expressed  as 


U = UL  + UNL 

(3.4  - 3) 

where 

U = i J eTa0dV 

(3.4  - 4a) 

UL  = ^ J^cl^odV 

(3.4  - 46) 

Unl  =2  J 6Nia'odF 

(3.4  - 4c) 

The  geometric  stiffness  matrix  is  derived  from  the  strain  energy  produced  by  stresses  acting 
through  displacements  associated  with  the  nonlinear  strain-displacement  relations.  These 
relations  couple  the  membrane  and  bending  effects.  Typically  the  strain-displacements 

relations  are  written  using  index  notation  as 

*ij  = ^ [din,  + djui  -f  diUkdjUk] 

(3.4-5) 

where  Ui  = (u,v,w)  for  t = 1,2,3,  respectively,  dt  denotes  differentiation  with  respect  to 
tth  coordinate  direction  and  summation  over  repeated  indices  is  implied.  Let  d denote  the 
nodal  degrees  of  freedom,  then 


where 


6 = Gd 

6 = { dxu , dvu,  dzu , dxv,  dyv,  dzv,  dxw , dyw,  dzw} 


(3.4  - 6) 


The  coefficients  of  G are  obtained  by  differentiating  the  element  shape  functions.  Finally 
the  matrix  Q is  defined  as 


Q = 


'dxu 

0 

0 

dxv 

0 

0 

dxw 

0 

0 ' 

0 

8yU 

0 

0 

OyV 

0 

0 

8yW 

0 

0 

0 

dzu 

0 

0 

dzv 

0 

0 

dzw 

OyU 

dxu 

0 

8yV 

dxv 

0 

dyW 

dxw 

0 

0 

dzu 

dyXJL 

0 

dzv 

ByV 

0 

dzw 

8yW 

dzu 

0 

dxu 

dzv 

0 

dxv 

dzw 

0 

dxw  m 

(3.4  - 7) 


With  these  definitions  the  nonlinear  strains  given  by  equation  (3.4-2)  can  be  written  as 


eNL  = “QGd 


(3.4  - 8) 
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The  vector  of  initial  stresses  is 


<r0  — {&x0  &y0  <TzO  TxyQ  TyZ o Tzt 0} 


(3.4  - 9) 


Substituting  equations  (3.4-6)  through  (3.4-9)  into  equation  (3.4-4c)  gives 


Unl  = 2^T( J G7Qt<t0  dV) 

However,  the  term  <r$  can  be  written  as 

s 0 0 


Q Tcr0 


where 


(3.4  - 10) 


0 s 

0 6 

= s (<r0)6 

(3.4-11) 

0 0 

&xQ 

T xyO 

TzzO 

TXyo 

(TyO 

ryzO 

(3.4  - 12) 

Txz0 

TyzO 

&zQ 

With  these  expressions,  a general  form  of  the  geometric  stiffness  matrix  can  be  written  as 

K g(a)=  [ GTS(cr0)GdV  (3.4-13) 

Jv 

which  is  symmetric  and  explicitly  dependent  on  the  stress  state. 

The  stress  state  used  to  form  the  geometric  stiffness  matrix  may  be  obtained  in  two  ways. 
The  first  way  is  first  to  perform  a linear  static  stress  analysis  for  the  given  load  set  and 
constraint  set.  This  way  is  used  in  procedure  L_STABIL_2.  The  second  way  is  to  specify,  in 
advance,  the  values  of  the  stress  components  given  in  equation  (3.4-11)  (*.e.,  specify  the 
prestress  state).  This  way  is  used  in  procedure  L_STABIL_1. 

3.4.3  ALGORITHM 

The  algorithm  used  to  solve  equation  (3.4-1)  depends  on  the  value  of  the  global  macrosym- 
bol eigensolver_name.  Processor  EIG2  is  used  if  eigensolver_name  is  defined  to  be  EIG2. 
This  processor  uses  a nodal-block  sparse  matrix  approach  as  described  in  reference  3.4-2. 
Processor  LAN  is  used  if  eigensolver_name  is  defined  to  be  LAN.  Processor  LANZ  is  used 
if  eigensolver_name  is  defined  to  be  LANZ.  These  processors  are  based  on  the  Lanczos 
algorithm  as  described  in  references  3.4-2  to  3.4-4. 
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3.4.4  PROCEDURE  USAGE 

Procedure  L.STABIL.2  may  be  invoked  by  the  *call  directive,  and  following  it  by  a list  of 
arguments  separated  by  semicolons(;)  and  enclosed  in  parentheses.  Procedure  arguments 
lire  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 


•call  L.STABIL-2  ( argl  * vail;  arg2  « va!2;  ...) 


where  argt  are  argument  names  and  vali  are  the  corresponding  values.  The  following 
are  valid  arguments  for  procedure  L_STABIL_2;  note  that  those  arguments  without  default 
values  are  mandatory,  while  the  others  are  optional. 


Argument 

Default  Value 

Meaning 

BC0NJ3ET 

i 

Constraint  set  for  buckling  analysis 

CONS-SET 

i 

Constaint  set  number  for  prestress  analysis 

DIRECTION 

0 

Direction  for  element  stress  output 

ERROR-TOL 

.0001 

Convergence  criterion  for  eigenvalues 

FUNCTION 

ALL 

Select  function  to  be  performed  by  procedure 

INIT-VECTOR 

0 

Number  of  initial  vectors  used  to  span  the  subspace 

ISEQ 

0 

Resequencing  method  to  be  used 

KNAME 

K 

First  word  of  the  name  of  the  dataset  containing  the 
assembled  stiffness  matrix 

LDI 

1 

Logical  device  index  v 

LOAD-SET 

1 

Load  set  number 

LOCATION 

CENTROIDS 

Location  of  the  evaluation  points  for  element  stresses 

MAX-ITERS 

20 

Maximum  number  of  iterations  allowed 

N-MODES 

1 

Number  of  eigenvalues  to  converge 

NVAL-METH 

3 

Method  to  be  used  for  global  smoothing 

PRINT 

<false> 

Flag  to  print  displacement  solution,  internal  forces, 
element  stresses,  and  eigenvectors 

REACTION 

<false> 

Flag  to  compute  internal  forces  or  reactions 

RENUMBER 

<true> 

Flag  to  resequence  node  numbers  for  equation  solver 

RHS 

APPL.F0RC 

First  two  words  of  the  dataset  name  for  the 
right-hand  side  system  vector 

SHIFT 

0.0 

Eigenvalue  shift 

SMOOTH 

<false> 

Flag  to  compute  smoothed  global  stresses 

SOLN 

STAT.DISP 

First  two  words  of  the  dataset  name  for  the 
displacement  solution 

STRESS 

<false> 

Flag  to  compute  element  stresses  (resultants) 

Tables  3.4-1,  3.4-2,  and  3.4-3  list  the  datasets  used  or  created  by  procedure  L_STABIL_2, 
the  procedures  invoked  by  procedure  L_STABIL_2,  and  the  processors  invoked  by  procedure 
L_STABIL_2,  respectively. 
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Table  3.4-1  Datasets  Input/Output  by  procedure  L_STABIL_2 


Input 


Dataset 

Description 

AMAP..ic2.isize 

Factorization  map  for  INV 

APPL.FORC.i.lt 

Applied  force  vector 

APPL.MOTLi.lt 

Specified  displacement  vector 

BUCK.EVAL.i.jt 

Buckling  eigenvalues 

BUCK.MODE.i.yt 

Buckling  eigenvalues 

<ES_NAME>.EFIL.O.nnod 

Element  Computational  Data 

ES. SUMMARY 

ES  Processor  Status 

DEF.<ES_NAME>.O.nnod 

Element  Defn.  (Connectivity) 

DIR.<ES_NAME>.O.nnod 

Element  EFIL  Directory 

INT.FORC.i.yt 

System  Internal  Force  Vector 

INV.KSHF.;t 

Factored  Shifted  System  Matrix 

INV.<KNAME>.;t 

Factored  System  Matrix 

JDF1.BTAB.1.8 

Model  Summary 

KG.SPAR.jdf2 

Assembled  geometric  stiffness  matrix 

KMAP..ic2.isize 

Model  connectivity  map 

<KNAME>.SPAR.jdf2 

Assembled  system  matrix 

STAT.DISP.i.;t 

System  Displacement  Vector 

STAT.REAC.i.;t 

System  Reaction  Force  Vector 

STRS.<ES_NAME>.t.yt 

Element  Stresses 

t t = <load_set>  and  j = <cons_set> 
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Table  3.4-2  £ 

Sub-Procedures  Invoked  by  procedure  L_STABIL_2 

Procedure 

Type 

Function 

ES 

External 

Element  utility  procedure 

FACTOR 

External 

Factors  assembled  stiffness  matrix 

L-STABIL-2 

Internal 

Main  procedure 

L-STATIC 

Internal 

Linear  static  analysis 

Table  3.4-3  Processors  Invoked  by  procedure  L_STABIL_2 

Procedure 

Type 

Function 

AUS 

Internal 

Arithmetic  Utilities 

E 

Internal 

Initializes  EFIL  datasets 

EIG2 

Internal 

Solve  eigenvalue  problem  using  subspace  iteration 

ESt 

External 

Element  processors  based  on  GEP 

K 

Internal 

Assemble  system  matrix 

LAN 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

LANZ 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

RSEQ 

Internal 

Resequences  nodes  for  equation  solving 

TOPO 

Internal 

Generates  nodal  topology  maps 

VPRT 

Internal 

Print  system  vectors 

3.4.5  ARGUMENT  DESCRIPTION 

3.4.5. 1 BCON-SET 

Constraint  set  number  for  buckling  analysis  (default:  i).  This  argument  selects  which 
constraint  set  to  use  in  solving  the  linear  stability  problem. 

3. 4. 5. 2 CONS-SET 

Constraint  set  number  for  prestress  solution  (default:  1).  This  argument  selects  which 
constraint  set  to  use  in  solving  the  linear  system  of  equations. 
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3.4. 5.3  DIRECTIOM 

Direction  for  the  element  stress  (stress  resultant)  output  (default:  0).  The  element  stress 
coordinate  system  will  be  used  if  direction=0.  The  material  axes  (xm,  ym,  zm)  will  be 
used  if  direction*!;  the  material  axes  (ym,  zm,  xm)  will  be  used  for  direct ion*2;  and 
the  material  axes  ( zm , xm,  ym)  will  be  used  for  direction^.  For  isotropic  materials,  the 
first  material  axis  is  replaced  by  the  corresponding  global  axis  (see  Section  4.3.3.9  of  the 
CSM  Testbed  User’s  Manual,  ref.  3.4-2). 

5.4.5.4  ERR0R.T0L 

Convergence  criterion  for  eigenvalues  (default:  0.0001).  For  the  A:-th  iteration,  the  error 
measure  for  the  k- th  eigenvalue  is 


. ll(  A, ‘-A?-1  )|| 

‘ IWII 

The  i-th  eigenvalue  is  converged  if  e*  is  smaller  than  ERROR-TOL. 

3. 4. 5.5  FUNCTION 

Select  function  to  be  performed  by  procedure  L-STABIL-2  (default:  ALL).  This  procedure 
may  be  used  to  perform  four  functions.  For  FUNCTIQN=ALL,  the  element  data  are  initialized 
and  elemental  stiffness  matrices  formed;  nodal  resequencing  may  be  performed,  the  mesh 
topology  is  analyzed,  the  system  stiffness  matrix  is  assembled  and  factored,  the  displace- 
ment solution  is  obtained,  optionally  element  stresses  (stress  resultants)  and  internal  nodal 
forces  (reactions)  computed  and  the  eigenproblem  is  solved.  For  FUNCTION^FACT-SQLV,  pro- 
cedure LJ5TABIL_2  assumes  that  the  system  stiffness  matrix  has  previously  been  assembled 
and  that  nodal  resequencing  has  been  performed.  The  procedure  then  proceeds  to  factor 
the  system  stiffness  matrix,  solves  for  the  displacement  solution,  optionally  computes  the 
element  stresses  (stress  resultants)  and  internal  nodal  forces  (reactions)  and  solves  the 
eigenproblem.  For  FUNCTI0N«S0LV,  procedure  L_STABIL_2  assumes  that  the  system  stiff- 
ness has  previously  been  formed  and  factored.  The  procedure  then  proceeds  to  solve  for 
the  displacement  solution,  optionally  computes  the  element  stresses  (stress  resultants)  and 
internal  nodal  forces  (reactions)  and  solves  the  eigenproblem.  For  FUNCTION=EIGEN,  pro- 
cedure L-STABIL.2  uses  a previously  computed  prestress  state  in  solving  the  eigenvalue 
problem.  Using  the  FUNCTION  argument,  the  user  may  solve  for  a variety  of  constraint 
(boundary  conditions)  sets  on  a given  model  subjected  to  a variety  of  loading  conditions. 

5.4.5.6  INIT-VECTOR 

Number  of  initial  vectors  used  to  span  the  subspace  (default:  0).  This  argument  defines 
the  number  of  trial  vectors  used  to  initiate  the  subspace  iteration.  If  INIT_VECT0R=0,  the 
number  of  initial  vectors  will  be  calculated  by  the  procedure  as 

INIT-VECTOR=MINIMUM  (2*N_M0DES,  N -MODES  + 8) 
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3.4. 5.7  ISEQ 

Resequencing  method  to  be  used  (default:  0).  If  the  argument  RENUMBER  is  <true>, 
then  nodal  resequencing  will  be  performed  using  processor  RSGQ.  The  method  used  by 
processor  RSEQ  to  resequence  the  nodes  depends  on  the  value  of  ISEQ.  If  the  argument 
ISEQ  is  greater  than  or  equal  to  zero,  then  that  method  will  be  used  (*.e.,  method=0 ,1,2,3; 
see  Section  6.1  of  the  CSM  Testbed  User’s  Manual,  ref.  3.4-2). 


3.4. 5.8  KNAME 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 

3. 4. 5.0  LDI 

Logical  device  index  (default:  1). 

3.4.5.10  LOAD-SET 

Load  set  number  (default:  1).  This  argument  selects  which  load  set  to  use  as  a right-hand 
side  vector. 


3.4.5.11  LOCATION 

Location  of  the  evaluation  points  for  the  element  stresses  or  stress  resultants  (default: 
CENTROIDS).  The  element  stresses  or  stress  resultants  are  optionally  computed  by  call- 
ing procedure  STRESS  (see  Section  6.4).  This  argument  may  have  four  values.  For 
LOCATION*INTEG_PTS,  the  element  stresses  are  computed  at  the  element  integration  points. 
For  L0CATI0N=CENTR0IDS,  the  element  stresses  are  computed  at  the  element  centroid.  For 
LOCATION=NODES,  the  element  stresses  are  extrapolated  from  the  integration  points  to  be 
element  nodes.  These  element  nodal  stresses  will  be  discontinuous  across  interelement 
boundaries.  For  L0CATI0N=ALL,  the  element  stresses  are  computed  at  the  element  integra- 
tion points,  element  centroid,  and  element  nodes. 


3.4.5.12  MAX-ITERS 

Maximum  number  of  iterations  (default:  20).  This  argument  specifies  the  maximum  num- 
ber of  iterations  that  can  be  used  per  call  to  eigensolver. 


3.4.5.13  N-MODES 

Number  of  converged  eigenvalues  desired  (default:  l).  This  argument  specifies  the  number 
of  eigenvalues  to  calculate  to  a convergence  criterion  of  ERROR.TOL. 
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3.4. S. 14  NVALJIETH 

Select  method  to  be  used  for  computing  the  smoothed  global  stresses  (default:  3).  Proces- 
sor NVAL  is  used  to  compute  the  smoothed  global  stresses  using  the  method  defined  by  the 
argument  NVALJiETH  (see  Section  12.5  of  reference  3.4-2).  If  NVAL_METH=1,  a topological 
interpolation  of  the  element  centroidal  stresses  is  performed,  and  the  element  stresses  must 
have  been  computed  using  L0CATI0N=CENTR0IDS.  If  NVAL_METH=2,  a projected  least-squares 
interpolation  of  the  element  centroidal  stresses  is  performed,  and  the  stresses  must  have 
been  computed  using  L0CATI0NsCENTR0IDS.  If  NVALJCETH*3,  the  element  nodal  stresses 
(discontinuous  across  interelement  boundaries)  are  averaged,  and  the  element  stresses  must 
have  been  computed  using  L0CATI0N=N0DES.  Using  L0CATI0N=ALL  will  generate  element 
stresses  at  the  element  centroids,  element  nodes,  and  element  gauss  points.  Acceptable 
values  of  LOCATION  for  specific  values  of  NVALJIETH  are  as  follows: 


NVALJIETH 

LOCATION 

1 

CENTROIDS,  ALL 

2 

CENTROIDS,  ALL 

3 

NODES,  ALL 

3.4.5.15  PRINT 

Flag  to  print  displacement  solution,  internal  forces  and  element  stresses  (default:  <f  alse>). 
If  printing  of  these  computed  results  is  requested,  processor  VPRT  will  be  used  to  print 
the  displacement  solution  and  internal  forces  and  processor  PESR  will  be  used  to  print  the 
element  stresses. 

3.4.5.16  REACTION 

Flag  to  compute  the  internal  nodal  forces  (default:  <true>)  If  the  argument  REAC- 
TI0N=<true>,  then  the  internal  forces  will  be  computed  by  calling  procedure  INT-FORC 
(see  Section  6.2). 

3.4.5.17  RENUMBER 

Flag  to  resequence  node  numbers  prior  to  equation  solving  (default:  <true>).  If  the  argu- 
ment RENUMBER=<true>,  then  processor  RSEQ  will  be  used  to  perform  nodal  resequencing, 
otherwise  no  resequencing  will  be  performed.  Note  that  the  nodal  resequencing  may  greatly 
reduce  the  time  required  to  factor  and  solve  the  linear  system  of  equations. 

3.4.5.18  RHS 

First  two  words  of  the  dataset  name  for  the  right-hand  side  system  vector  (default: 
APPL.FORC). 

3.4.5.10  SHIFT 

Eigenvalue  shift  (default:  0.0).  Converged  eigenvalues  will  only  be  obtained  for  values 
greater  than  SHIFT.  The  shift  parameter  refers  to  the  shift  in  the  buckling  load  factor. 
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3.4.5.20  SMOOTH 

Flag  to  compute  smoothed  global  stresses  (default:  <false>).  If  the  argument 

SM00TH=<true>,  then  smoothed  global  stresses  will  be  computed  by  processor  NVAL  using 
the  method  defined  by  the  argument  NVAL_METH. 

3.4.5.21  SOLN 

First  two  words  of  the  dataset  name  for  the  displacement  solution  (default:  STAT.DISP). 

3.4.5.22  STRESS 

Flag  to  compute  element  stresses  or  stress  resultants  (default:  <f  alse>).  If  the  argument 
STRESS=<true>,  then  the  element  stresses  will  be  computed  at  the  location  and  in  the 
direction  specified  by  the  arguments  LOCATION  and  DIRECTION,  respectively,  by  calling 
procedure  STRESS  (see  Section  6.4). 

3.4.6  PROCEDURE  FLOWCHART 

LJSTABIL-2  (main  procedure) 

L-STATIC  (linear  static  analysis  procedure) 

ES  (initialize,  form  K) 

FACTOR  (factor  assembled  stiffness  matrix) 

SOLVE  (solve  linear  system  of  equations) 

STRESS  (stress/strain  recovery  procedure) 

ES  (calculate  element  and  nodal  stress/strain) 

INTJFORCE  (internal  force  procedure) 

ES  (internal  force  calculation) 

ES  (form  Kg) 

FACTOR  (factor  using  buckling  boundary  conditions) 

3.4.7  LIMITATIONS 

None. 

3.4.8  ERROR  MESSAGES  AND  WARNINGS 

None. 
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3.4.9  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  L.STABIL.2  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or 
all  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


•call  L_STABIL_2  ( FUNCTION  = ALL  ; — . Select  function 


CONS.SET 

= 

1 ; — . Select  constraint  set 

BCON.SET 

= 

1 ; — . Select  buckling  constraint  set 

DIRECTION 

= 

0 ; — . Select  direction  for  element  stresses 

ERR0R.T0L 

X 

.0001  ; — 

INIT_ VECTOR 

* 0 ; — 

ISEq 

SB 

0 ; — . Select  resequencing  method 

KNAME 

= 

K ; — . First  word  of  stiffness  matrix 
9 — . dataset  name 

LOAD.SET 

= 

1 ; — . Select  load  set 

LOCATION 

— 

CENTROIDS  ; — Select  location  of  element 
— . stress  evaluation  points 

MAX_ ITERS 

= 

20;  — Maximum  number  of  iterations 

N.MODES  = 

= 

1 ; — Number  of  eigenvalues 

NVAL.METH 

= 

3 ; — 

PRINT 

= 

» <false>  ; — . PRINT  flag 

REACTION 

X 

<false>  ; — . REACTIONS  flag 

RENUMBER 

= 

<true>  ; ~ . RESEQUENCING  flag 

RHS 

= 

APPL.  FORC  ; — . First  two  words  of  RHS 
— . vector  dataset 

SHIFT 

= 

0.0  ; Eigenvalue  shift 

SMOOTH 

= 

<false>  ; — compute  smoothed  global  stresses? 

SOLN 

as 

STAT.  DISP  ; — . First  two  words  of  SOLN 
— . dataset 

STRESS 

ss 

<false>  — . STRESS  flag 

) 

Before  procedure  L_STABIL_2  is  called,  the  global  macrosymbol  eigensolver_name  should 
be  defined  as  described  in  Section  3.4.3;  otherwise,  the  default  value  of  EIG2  will  be  used. 

3.4.10  PROCEDURE  LISTING 


3.4.11  REFERENCES 

3.4- 1  Cook,  Robert  D.:  Concepts  and  Applications  of  Finite  Element  Analysis.  (Second 

Edition).  John  Wiley  and  Sons,  Inc.,  New  York  1981. 

3.4- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 

3.4- 3  Bostic,  S.  W.  and  Fulton  R.  E.:  A Lanczos  Eigenvalue  Method  on  a Parallel  Com- 

puter. AIAA  Paper  No.  87-0725-CP. 
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3.4-4  Jones,  Mark  T.  and  Patrick,  Merrell  L.:  The  Use  of  Lanczos’s  Method  to  Solve 
the  Large  Generalized  Symmetric  Definite  Eigenvalue  Problem.  NASA  CR-181914, 
September  1989.  (Also  available  as  ICASE  Report  No.  89-69). 
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3.5  Procedure  L .STATIC 

3.5.1  GENERAL  DESCRIPTION 

Procedure  L.STATIC  performs  linear  static  analysis,  using  an  equation  solver  selected  by 
defining  the  global  macrosymbol  solver  .name  (e.g.,  INV,  BAND,  ITER,  SPK)  and  user 
specified  structural  element  (ESt)  processors  based  on  the  generic  element  processor  tem- 
plate. The  procedure  assumes  that  the  finite  element  model,  loads,  and  boundary  condi- 
tions, have  already  been  generated,  and  that  the  nodal  displacements,  reaction  forces,  and 
element  stresses  need  to  be  calculated.  The  applied  loads  may  be  due  to  a combination 
of  specified  forces  and  displacements,  and  one  constraint  (t'.e.,  boundary  condition)  set  is 
permitted  per  procedure  call. 


3.5.2  THEORY 

Mathematically,  procedure  L.STATIC  solves  the  linear  static  problem: 

K d = f (3.5-1) 


where 

K = assembled  linear  stiffness  matrix  ; 
d = generalized  displacement  vector 
f = external  force  vector 

Note  that  both  the  translational  and  rotational  displacements  in  d are  assumed  to  be  in- 
finitesimally small  (linear  strain-displacement  relations  tire  employed),  and  that  the  mate- 
rial (stress-strain  relation)  is  assumed  to  be  both  linear  and  elastic.  Once  the  displacement 
vector,  d,  is  computed  by  solution  of  equation  (3.5-1),  the  reaction  forces  are  computed  by 
multiplying  those  rows  of  the  stiffness  matrix  K at  which  the  displacements  are  prescribed 
(zero  or  non-zero)  by  the  generalized  displacement  vector  d.  Finally,  element  stresses  may 
be  optionally  computed. 

3.5.3  ALGORITHM 

The  algorithm  used  to  solve  equation  3.5-1  depends  on  the  value  of  the  global  macrosymbol 
solver  .name.  Processors  INV  and  SSOL  are  used  if  solver  jaame  is  defined  to  be  INV. 
These  processors  use  nodal- block  sparse  matrix  approach  as  described  in  references  3.5-1, 
3.5-2  and  3.5-3.  Processor  BAND  (meth=28)  is  used  if  solver_name  is  defined  to  be  BAND. 
This  algorithm  is  a LDLT  direct  method  based  on  an  Choleski  variable  bandwidth  method 
with  loop  unrolling  as  described  in  references  3.5-1  and  3.5-4.  Processor  ITER  (meth=0) 
is  used  if  solver  .name  is  defined  to  be  ITER.  This  algorithm  is  an  iterative  method  based 
on  a conjugate  gradient  method  with  diagonal  scaling  and  sparse  storage  of  the  system 
matrix  as  described  in  references  3.5-1  and  3.5-4.  Processor  SPK  is  used  if  solver  .name 
is  defined  to  be  SPK.  This  algorithm  uses  the  vector-sum  column  Cholesky  algorithms  to 


5/24/90 


CSM  Testbed  Procedures  Manual 


3.5-  1 


Procedure  L-STATIC 


Solution  Procedures 


factor  a general  sparse  matrix  as  described  in  references  3.5-1  and  3.5-5.  Processor  SPK 
contains  a subset  of  the  SPARSPAK-A  package  of  FORTRAN  programs  designed  to  solve 
effectively  large  sparse  systems  of  linear  equations  by  direct  methods  (see  reference  3.5-6). 

3.5.4  PROCEDURE  USAGE 


Procedure  L_STATIC  may  be  invoked  by  the  *call  directive,  and  following  it  by  a list  of 
arguments  separated  by  semicolons(;)  and  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 


♦call  L .STATIC  ( argl  * vail;  arg2  = val2;  ...) 


where  argi  are  argument  names  and  valt  are  the  corresponding  values.  The  following  are 
valid  arguments  for  procedure  L-STATIC;  note  that  those  arguments  without  default  values 
are  mandatory,  while  the  others  are  optional. 


Argument 

Default  Value 

Meaning 

CONS.SET 

i 

Constraint  set  number 

DIRECTION 

i 

Direction  for  element  stress  output 

FUNCTION 

ALL 

Select  function  to  be  performed  by  procedure 

ISEq 

-1 

Resequencing  method  to  be  used 

KNAHE 

K 

First  word  of  the  name  of  the  dataset  containing  the 
assembled  stiffness  matrix 

LDI 

1 

Logical  device  index 

LOAD-SET 

1 

Load  set  number 

LOCATION 

NODES 

Location  of  the  evaluation  points  for  element  stresses 

NVAL.METH 

3 

Method  to  be  used  for  global  smoothing 

PRINT 

<false> 

Flag  to  print  computed  results 

REACTION 

<false> 

Flag  to  compute  internal  forces  or  reactions 

RENUMBER 

<true> 

Flag  to  resequence  node  numbers  for  equation  solver 

RHS 

APPL.FORC 

First  two  words  of  the  dataset  name  for  the  right-hand 
side  system  vector 

SMOOTH 

<false> 

Flag  to  compute  smoothed  global  stresses 

SOLN 

STAT.DISP 

First  two  words  of  the  dataset  name  for  the  displacement 
solution 

STRESS 

<false> 

Flag  to  compute  element  stresses  (resultants) 

Tables  3.5-1,  3.5-2,  and  3.5-3  list  the  datasets  used  or  created  by  procedure  L-STATIC, 
the  procedures  invoked  by  procedure  L_STATIC,  and  the  processors  invoked  by  procedure 
L_STATIC,  respectively. 
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Table  3.5-1  Datasets  Input/Output  by  procedure  L_STATIC 


Input  lOutput 


Dataset 

Description 

AMAP..ic2.isize 

Factorization  Map  for  INV 

APPL.FORC.i.lt 

Applied  force  vector 

APPL.MOTLi.lt 

Specified  displacement  vector 

<ES_NAME>.EFIL.O.  nnod 

Element  Computational  Data 

ES. SUMMARY 

ES  Processor  Status 

DEF.<ES_NAME>.O.nnod 

Element  Defn.  (Connectivity) 

DIR.<ES_NAME>.O.nnod 

Element  EFIL  Directory 

INT.FORC.i.jt 

System  Internal  Force  Vector 

INV.<KNAME>.i.jt 

Factored  System  Matrix 

JDF1.BTAB.1.8 

Model  Summary 

JLOC.BTAB.2.5 

Nodal  Coordinates 

KM  AP.  .ic2  .isize 

Model  Connectivity  Map 

<KNAME>.SPAR.jdf2 

Assembled  System  Matrix 

PROP.BTAB.* 

Material/ Section  Properties 

QJJT.BTAB.2.9 

Nodal  Transformations 

STAT.DISP.i.yt 

System  Displacement  Vector 

STAT.REAC.».;t 

System  Reaction  Force  Vector 

STRS.<ES_NAME>.».;t 

Element  Stresses 

t i = <load_set>  and  j = <consjset> 
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Table  8.5-2  Sub-Procedures  Invoked  by  procedure  L_STATIC 


Procedure 


Type 


Function 


External  Element  utility  procedure 


FACTOR  External  Factors  assembled  stiffness  matrix 

INT  JFORCE  External  Computes  internal  forces 

L-STATIC  Internal  Main  procedure 

External  Solves  for  the  displacement  solution 
External  Computes  element  stresses 


STRESS 


Table  3.5-3  Processors  Invoked  by  procedure  L-STATIC 

Procedure  Type  Function 


Internal  Initializes  EFIL  datasets 


External  Element  processors  based  on  GEP 
K Internal  Assemble  material  stiffness  matrix 

RSEQ  Internal  Resequences  nodes  for  equation  solving 
TOPO  Internal  Generates  nodal  topology  maps 
VPRT  Internal  Print  SYSVEC-format  vectors 


3.5.5  ARGUMENT  DESCRIPTION 

3. 5. 5.1  C0NS.SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  use  in 
solving  the  linear  system  of  equations. 

3. 5. 5.2  DIRECTION 

Direction  for  the  element  stress  (stress  resultant)  output  (default:  1).  The  element  stress 
coordinate  system  will  he  used  it  DIRECTIOK-O.  The  material  axes  (*»>.  Vm,  w.U  be 
used  if  DIRECTIONS;  the  material  axes  (ym,  zm,  zm)  will  be  used  for  DIRECTION-2,  an 
the  material  axes  (*.,  *.)  will  be  used  for  DIRECTIONS.  For  isotropic  materials  he 

first  material  axis  is  replaced  by  the  corresponding  global  axis  (see  Section  4.3.3.9  of  the 
CSM  Testbed  User’s  Manual,  ref.  3.5-1). 
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3.5.5.3  FUNCTION 

Select  function  to  be  performed  by  procedure  L-STATIC  (default:  ALL).  This  procedure 
may  be  used  to  perform  three  functions.  For  FUNCTION*ALL,  the  element  data  are  ini- 
tialized and  elemental  stiffness  matrices  formed;  nodal  resequencing  may  be  performed, 
the  mesh  topology  is  analyzed,  the  system  stiffness  matrix  is  assembled  and  factored,  the 
displacement  solution  is  obtained  and  optionally  element  stresses  (stress  resultants)  and 
internal  nodal  forces  (reactions)  computed.  For  FUNCTION=FACT_SOLV,  procedure  L-STATIC 
assumes  that  the  system  stiffness  matrix  has  previously  been  assembled  and  that  nodal  re- 
sequencing has  been  performed.  The  procedure  then  proceeds  to  factor  the  system  stiffness 
matrix,  solves  for  the  displacement  solution,  and  optionally  computes  the  element  stresses 
(stress  resultants)  and  internal  nodal  forces  (reactions).  For  FUNCTI0N=S0LV,  procedure 
L -STATIC  assumes  that  the  system  stiffness  has  previously  been  formed  and  factored.  The 
procedure  then  proceeds  to  solve  for  the  displacement  solution  and  optionally  computes 
the  element  stresses  (stress  resultants)  and  internal  nodal  forces  (reactions).  Using  the 
FUNCTION  argument,  the  user  may  solve  for  a variety  of  constraint  (boundary  conditions) 
sets  on  a given  model  subjected  to  a variety  of  loading  conditions. 

5.5.5.4  ISEQ 

Resequencing  method  to  be  used  (default:  -1).  If  the  argument  RENUMBER  is  <true>, 
then  nodal  resequencing  will  be  performed  using  processor  RSEQ.  The  method  used  by 
processor  RSEQ  to  resequence  the  nodes  depends  on  the  value  of  ISEQ.  If  the  argument 
ISEQ  is  greater  than  or  equal  to  zero,  then  that  method  will  be  used  (i.e.,  method=0 ,1,2,3; 
see  Section  6.1  of  the  CSM  Testbed  User’s  Manual,  ref.  3.5-1).  If  the  argument  ISEQ  has 
a value  of  -1,  then  a default  method  will  be  used  depending  on  the  value  of  the  global 
macrosymbol  <solver_name>. 

These  default  value  are  as  follows: 


<solver_name> 

ISEQ 

INV 

0 

BAND 

2 

ITER 

1 

SPK 

1 

3.5. 5. 5 KNAME 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 

5.5.5.6  LDI 

Logical  device  index  (default:  1). 

3. 5. 5. 7 LOAD-SET 

Load  set  number  (default:  1).  This  argument  selects  which  load  set  to  use  as  a right-hand 
side  vector. 
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5.5.5.8  LOCATION 

Location  of  the  evaluation  points  for  the  element  stresses  or  stress  resultants  (default: 
NODES).  The  element  stresses  or  stress  resultants  are  optionally  computed  by  calling  proce- 
dure STRESS  (see  Section  6.4).  This  argument  may  have  four  values.  For 
LOCATION*INTEG_PTS,  the  element  stresses  are  computed  at  the  element  integration  points. 
For  L0CATI0N=CENTR0IDS,  the  element  stresses  are  computed  at  the  element  centroid.  For 
L0CATI0N=N0DES,  the  element  stresses  are  extrapolated  from  the  integration  points  to  be 
element  nodes.  These  element  nodal  stresses  will  be  discontinuous  across  interelement 
boundaries.  For  L0CATI0N=ALL,  the  element  stresses  are  computed  at  the  element  integra- 
tion points,  element  centroid,  and  element  nodes. 

3.5.5.9  NVAL-METH 

Select  method  to  be  used  for  computing  the  smoothed  globed  stresses  (default:  3).  Proces- 
sor NVAL  is  used  to  compute  the  smoothed  global  stresses  using  the  method  defined  by  the 
argument  NVAL_METH  (see  Section  12.5  of  reference  6.4-1).  If  NVAL_METH=1,  a topological 
interpolation  of  the  element  centroidal  stresses  is  performed,  and  the  element  stresses  must 
have  been  computed  using  L0CATI0N=CENTR0IDS.  If  NVAL_METH=2,  a projected  least-squares 
interpolation  of  the  element  centroidal  stresses  is  performed,  and  the  stresses  must  have 
been  computed  using  L0CATI0N=CENTR0IDS.  If  NVAL_METH=3,  the  element  nodal  stresses 
(discontinuous  across  interelement  boundaries)  are  averaged,  and  the  element  stresses  must 
have  been  computed  using  LOCATION=NODES.  Using  L0CATI0N=ALL  will  generate  element 
stresses  at  the  element  centroids,  element  nodes,  and  element  gauss  points.  Acceptable 
values  of  LOCATION  for  specific  values  of  NVAL_METH  are  as  follows: 


NVAL-METH 

LOCATION 

1 

CENTROIDS,  ALL 

2 

CENTROIDS,  ALL 

3 

NODES,  ALL 

3.5.5.10  PRINT 

Flag  to  print  computed  results  such  as  the  displacement  solution,  internal  forces,  and 
element  and  nodal  stresses  (default:  <false>).  If  printing  of  these  computed  results  is 
requested,  processor  VPRT  will  be  used  to  print  the  displacement  solution  and  interned 
forces,  processor  PESR  will  be  used  to  print  the  element  stresses  and  processor  PNSR  will 
be  used  to  print  nodal  stresses. 

3.5.5.11  REACTION 

Flag  to  compute  the  internal  nodal  forces  (default:  <true>)  If  the  argument  REAC- 
TI0N=<true>,  then  the  internal  forces  will  be  computed  by  calling  procedure  INT-FORCE 
(see  Section  6.2). 
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5.5.5.12  RENUMBER 

Flag  to  resequence  node  numbers  prior  to  equation  solving  (default:  <true>).  If  the 
argument  RENUMBER=<true>,  then  processor  RSEQ  will  be  used  to  perform  nodal  rese- 
quencing, otherwise  no  resequencing  will  be  performed.  Note  that  the  nodal  resequencing 
may  greatly  reduce  the  time  required  to  factor  and  solve  the  linear  system  of  equations 
given  by  equation  3.5-1. 

3.5.5.13  RHS 

First  two  words  of  the  dataset  name  for  the  right-hand  side  system  vector  (default: 
APPL.FORC). 

3.5.5.14  SMOOTH 

Flag  to  compute  smoothed  global  stresses  (default:  <false>).  If  the  argument 

SMOOTH*<true>,  then  smoothed  global  stresses  will  be  computed  by  processor  NVAL  using 
the  method  defined  by  the  argument  NVALJfETH. 

3.5.5.15  SOLM 

First  two  words  of  the  dataset  name  for  the  displacement  solution  (default:  STAT.DISP). 

3.5.5.16  STRESS 

Flag  to  compute  element  stresses  or  stress  resultants  (default:  <lalse>).  If  the  argument 
STRESS  is  defined  to  be  <true>,  then  the  element  stresses  will  be  computed  at  the  location 
and  in  the  direction  specified  by  the  arguments  LOCATION  and  DIRECTION,  respectively,  by 
calling  procedure  STRESS  (see  Section  6.4). 


3.5.6  PROCEDURE  FLOWCHART 


L_STATIC 

ES 

FACTOR 

SOLVE 

STRESS 

ES 

INT-FORCE 

ES 


(main  procedure) 

(initialize,  form  K) 

(factor  assembled  stiffness  matrix) 

(solve  linear  system  of  equations) 
(stress/strain  recovery  procedure) 
(calculate  element  stresses  and/or  strains) 
(internal  force  procedure) 

(internal  force  calculation) 
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3.6  Procedure  L_VIBRAT_0 

3.0. 1  GENERAL  DESCRIPTION 

Procedure  L_VIBRAT_0  performs  a linear  vibration  analysis  about  an  unstressed  state.  The 
eigensolver  is  selected  by  defining  the  global  macrosymbol  eigensolver_name  to  be  the 
name  of  the  desired  processor  (e.y.,  EIG2,  LAN,  LANZ),  and  the  structural  element  pro- 
cessors (ES»)  form  the  elemental  stiffness  and  mass  matrices.  The  procedure  assumes  that 
the  finite  element  model  and  boundary  conditions  have  already  been  generated  and  that 
the  vibration  modeshapes  and  frequencies  need  to  be  calculated. 

3.0. 2  THEORY 

Linear  vibration  analyses  are  formulated  using  the  equations  of  motion  for  an  undamped 
structure.  For  the  case  of  no  external  forces,  the  equations  of  motion  are 

Mii  + Ku  = 0 (3.6-1) 

where 

M = assembled  mass  matix  (consistent  or  diagonal) 

K = assembled  linear  stiffness  matrix 
ii  = acceleration  vector 
u = displacement  vector 

If  harmonic  motion  is  assumed,  then 


u = 4>i  sin  u/it  i = l,2,...  (3.6  — 2) 

where 

<f>i  = tth  eigen  modeshape 

u>i  = tth  circular  frequency  (radians  per  second) 

The  ith  cyclic  frequency  /,•  (in  hertz)  is 


and  the  period  Ti  (in  seconds)  is 


Substituting  equation  (3.6-2)  in  equation  (3.6-1)  gives 

(K-AiM)<fc  = 0 i = l,2,...  (3.6-3) 

where 
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\i  =u >?. 

If  the  user  has  specified  the  reset  parameter  GRAV  in  processor  LAU  to  a value  of  unity  then 
the  matrix  M has  the  meaning  of  a “weight”  matrix  instead  of  a “mass”  matrix.  This 
reset  parameter  is  important  for  interpreting  the  eigenvalues  calculated  by  the  various 
eigensolvers. 

3.0. 3  ALGORITHM 

The  algorithm  used  to  solve  equation  (3.6-1)  depends  on  the  value  of  the  global  macrosym- 
bol eigensolver-Xiame.  Processor  EIG2  is  used  if  eigensolver_name  is  defined  to  be  EIG2. 
This  processor  uses  a nodal-block  sparse  matrix  approach  as  described  in  reference  3.6-2. 
Processor  LAN  is  used  if  eigensolver_name  is  defined  to  be  LAV.  Processor  LANZ  is  used 
if  eigensolver_name  is  defined  to  be  LANZ.  These  processors  are  based  on  the  Lanczos 
algorithm  as  described  in  references  3.6-2  and  3.6-3.  If  this  global  macrosymbol  is  not 
defined,  procedure  L_VIBRAT_0  will  set  it  to  EIG2. 

3.0. 4  PROCEDURE  USAGE 

Procedure  L_VIBRAT_0  may  be  invoked  by  the  *call  directive,  and  following  it  by  a list  of 
arguments  separated  by  semicolons(;)  and  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 

♦call  L_VIBRAT_0  ( argl  * vail;  arg2  * val2;  ...) 

where  argi  are  argument  names  and  vali  are  the  corresponding  values.  The  following 
are  valid  arguments  for  procedure  L_VIBRAT_0;  note  that  those  arguments  without  default 
values  are  mandatory,  while  the  others  are  optioned. 


Argument 

Default  Value 

Meaning 

ERROR.TOL 

.0001 

Convergence  criterion  for  eigenvalues 

FUNCTION 

ALL 

Select  function  to  be  performed  by  procedure 

INIT_VECT0RS 

0 

Number  of  initial  vectors  used  to  span  the  subspace 

ISEQ 

0 

Resequencing  method  to  be  used 

LDI 

1 

Logical  device  index 

KNAME 

K 

First  word  of  the  name  of  the  dataset  containing  the 
assembled  stiffness  matrix 

MASS.TYPE 

CONSISTENT 

Type  of  mass  matrix 

MAX.ITERS 

20 

Maximum  number  of  iterations 

N -MODES 

1 

Number  of  eigenvalues  to  converge 

PRINT 

<false> 

Flag  to  print  eigenvectors 

RENUMBER 

<true> 

Flag  to  resequence  node  numbers  for  equation  solver 

SHIFT 

0.0 

Eigenvalue  shift 

VCON-SET 

1 

Constraint  set  for  vibration  analysis 
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Tables  3.6-1,  3.6-2,  and  3.6-3  list  the  datasets  used  or  created  by  procedure  L_VIBRAT_0, 
the  procedures  invoked  by  procedure  L_VIBRAT_0,  and  the  processors  invoked  by  procedure 
L.VIBRAT.O , respectively. 


Table  3.6-1  Datasets  Input/Output  by  procedure  L.VIBRAT.0 

Dataset 

Description 

Input 

Output 

AMAP..ic2.isize 

Factorization  Map  for  INV 

V 

CEM.SPAR 

Consistent  Mass  Matrix 

V 

<ES_NAME>.EFIL.O.  nnod 

Element  Computational  Data 

V 

s/ 

ES.SUMMARY 

ES  Processor  Status 

V 

v/ 

DEF.<ES_NAME>.0.  nnod 

Element  Defn.  (Connectivity) 

V 

DEM.DIAG 

Diagonal  (Lumped)  Mass  Matrix 

v/ 

DIR.  <ES_NAME>.0.  nnod 

Element  EFIL  Directory 

V 

INV.KSHF.jt 

Factored  Shifted  System  Matrix 

y/ 

INV.<KNAME>.jt 

Factored  System  Matrix 

s/ 

JDF1.BTAB.1.8 

Model  Summary 

V 

KG.SPAR.jdf2 

Assembled  geometric  stiffness  matrix 

J 

KMAP..ic2.isize 

Model  Connectivity  Map 

v/ 

<KNAME>.SPAR.jdf2 

Assembled  system  matrix 

V 

VTBR.EVAL . 1 .jt 

Vibration  eigenvalues 

V 

VIBR.MODE.l.;t 

Vibration  eigenvalues 

V 

t j = <cons_set> 
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Table  3.0-3  Processors  Invoked  by  Procedure  L_VIBRAT_0 

Procedure 

Type 

Function 

AUS 

Internal 

Arithmetic  utilities 

E 

Internal 

Initializes  EFIL  datasets 

EIG2 

Internal 

Solve  eigenvalue  problem  using  subspace  iteration 

ESt 

External 

Element  processors  based  on  GEP 

K 

Internal 

Assemble  system  matrix 

LAN 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

LANZ 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

RSEQ 

Internal 

Resequences  nodes  for  equation  solving 

TOPO 

Internal 

Generates  nodal  topology  maps 

VPRT 

Internal 

Print  SYSVEC  system  vectors 

3.0. 5  ARGUMENT  DESCRIPTION 

3.0. 5. 1 ERROR-TOL 

Convergence  criterion  for  eigenvalues  (default:  0.0001).  For  the  k- th  iteration,  the  error 
measure  for  the  t-th  eigenvalue  is 

.»  II(A?-A‘-1)|| 

‘ IWII 

The  *-th  eigenvalue  is  converged  if  ef  is  smaller  than  ERROR-TOL. 

3.0. 5. 2 FUNCTION 

Select  function  to  be  performed  by  procedure  L_VIBRAT_0  (default:  ALL).  This  procedure 
may  be  used  to  perform  two  functions.  For  FUNCTI0N=ALL,  the  element  data  are  initialized 
and  elemental  stiffness  matrices  formed;  nodal  resequencing  may  be  performed,  the  mesh 
topology  is  analyzed,  the  system  stiffness  matrix  is  assembled  and  factored,  and  the  eigen- 
problem  is  solved.  For  FUNCTION=EIGEN,  procedure  L_VIBRAT_0  uses  a previously  computed 
prestress  state  in  solving  the  eigenvalue  problem.  Using  the  FUNCTION  argument,  the  user 
may  solve  for  a variety  of  constraint  (boundary  conditions)  sets  on  a given  model. 
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3.0. 5. 3 INIT-VECTOR 

Number  of  initial  vectors  used  to  span  the  subspace  (default:  0).  This  argument  defines 
the  number  of  trial  vectors  used  to  initiate  the  subspace  iteration.  If  INIT_VECT0R=0,  the 
number  of  initial  vectors  will  be  calculated  by  the  procedure  as 

IN IT_VECTOR=MINIMUM  (2*N_M0DES,  Njnodes  + 8) 

3.6. 5.4  ISEQ 

Resequencing  method  to  be  used  (default:  0).  If  the  argument  RENUMBER  is  <true>, 
then  nodal  resequencing  will  be  performed  using  processor  RSEQ.  The  method  used  by 
processor  RSEQ  to  resequence  the  nodes  depends  on  the  value  of  ISEQ.  If  the  argument 
ISEQ  is  greater  than  or  equal  to  zero,  then  that  method  will  be  used  (*.e.,  method=0 ,1,2,3; 
see  Section  6.1  of  the  CSM  Testbed  User’s  Manual,  ref.  3.6-1). 

3.6. 5. 5 LDI 

Logical  device  index  (default:  1). 

3.6. 5.6  KNAME 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 

3.6. 5. 7 MASS-TYPE 

Type  of  mass  matrix  (default:  CONSISTENT).  If  MASS_TYPE*CONSISTENT,  the  element  pro- 
cessor will  generate  consistent  element  mass  matrices  that  will  be  assembled  by  processor 
K to  form  the  system  mass  matrix.  If  MASS_TYPEsDIA60NAL,  the  element  processor  will 
generate  a diagonal  or  lumped  mass  matrix. 

3.6. 5.8  MAX-ITERS 

Maximum  number  of  iterations  (default:  20).  This  argument  specifies  the  maximum  num- 
ber of  iterations  that  can  be  used  per  call  to  eigensolver. 

3.6. 5.0  H-MODES 

Number  of  converged  eigenvalues  desired  (default:  1).  This  argument  specifies  the  number 
of  eigenvalues  to  calculate  to  a convergence  criterion  of  ERR0R.T0L. 

3.6.5.10  PRINT 

Flag  to  print  displacement  solution,  internal  forces  and  element  stresses  (default:  <f  alse>). 
If  printing  of  these  computed  results  is  requested,  processor  VPRT  will  be  used  to  print 
the  vibration  modeshapes. 

3.6.5.11  RENUMBER 

Flag  to  resequence  node  numbers  prior  to  equation  solving  (default:  <true>).  If  the  argu- 
ment RENUMBER=<true>,  then  processor  RSEQ  will  be  used  to  perform  nodal  resequencing, 
otherwise  no  resequencing  will  be  performed.  Note  that  the  nodal  resequencing  may  greatly 
reduce  the  time  required  to  factor  and  solve  the  linear  system  of  equations. 
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3.0. 5.12  SHIFT 

Eigenvalue  shift  (default:  0.0).  Converged  eigenvalue  will  only  be  obtained  for  eigenvalues 
greater  than  SHIFT.  The  shift  parameter  refers  to  the  frequency  squared  (i.e.,  u>2)  for 
vibration  problems. 

3.6.5.13  VCOH-SET 

Constraint  set  number  for  vibration  analysis  (default:  l).  This  argument  selects  which 
constraint  set  to  use  in  solving  the  linear  vibration  problem. 

3.0. 0  PROCEDURE  FLOWCHART 

L_VIBRAT_0  (main  procedure) 

ES  (initialize,  form  K and  M) 

FACTOR  (factor  using  vibration  boundary  conditions) 

3.0. 7  LIMITATIONS 

None. 

3.0. 8  ERROR  MESSAGES  AND  WARNINGS 

None. 

3.0. 9  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  L_VIBRAT_0  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or 
all  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


3.6-  6 


CSM  Testbed  Procedures  Manual 


5/24/90 


Solution  Procedures 


Procedure  L_VIBRAT_0 


•call  L VIBRAT.O  ( FUNCTION 
BCON.SET  = 
ERROR.TOL  = 
INIT_ VECTOR 
ISEQ 
KNAME 

MAX. ITERS  » 
N.MODES  = 
PRINT 

RENUMBER  - 
SHIFT 


* ALL  ; 
1 ; - 
.0001  ; 
- 0 ; - 


20;  — 
l ; — 

<true> 
<true> 
0.0 


— . Select  function 

. Select  vibration  constraint  set 

— . Eigenvalue  convergence  criterion 

- . Number  of  initial  vectors 

- . Select  resequencing  method 

- . First  word  of  stiffness  matrix 

- . dataset  name 

Maximum  number  of  iterations 
Number  of  eigenvalues 
; — . PRINT  flag 

; — . RESEQUENCING  flag 

— . Eigenvalue  shift 


Before  procedure  L_VIBRAT_0  is  called,  the  global  macrosymbol  eigensolver_name  should 
be  defined  as  described  in  Section  3.6-3;  otherwise,  the  default  value  of  EIG2  will  be  used. 


3.6.10  PROCEDURE  LISTING 


3.6.11  REFERENCES 

3.6- 1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 

3.6- 2  Bostic,  S.  W.  and  Pulton  R.  E.:  A Lanczos  Eigenvalue  Method  on  a Parallel  Com- 

puter. AIAA  Paper  No.  87-0725-CP. 

3.6- 3  Jones,  Mark  T.  and  Patrick,  Merrell  L.:  The  Use  of  Lanczos ’s  Method  to  Solve 

the  Large  Generalized  Symmetric  Definite  Eigenvalue  Problem.  NASA  CR-181914, 
September  1989.  (Also  available  as  ICASE  Report  No.  89-69). 
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3.7  Procedure  L_VTBRAT_1 

3.7.1  GENERAL  DESCRIPTION 

Procedure  L_VIBRAT_1  performs  a linear  vibration  analysis  about  a prescribed  prestressec. 
state.  The  eigensolver  is  selected  by  defining  the  global  macrosymbol  eigensolver_narae 
to  be  the  name  of  the  desired  processor  (e.g.,  EIG2,  LAN),  and  the  structural  element  pro- 
cessors (ESi)  form  the  elemental  stiffness  and  mass  matrices.  The  procedure  assumes  that 
the  finite  element  model  and  boundary  conditions  have  already  been  generated,  that  the 
prestressed  state  has  been  prescribed,  and  that  the  vibration  modeshapes  and  frequencies 
need  to  be  calculated. 

3.7.2  THEORY 

Linear  vibration  analyses  are  formulated  using  the  equations  of  motion  for  an  undamped 
structure.  For  the  case  of  prestressed  state,  the  equations  of  motion  are 

Mii  + Ku  + Kfl(<r)u  = 0 (3.7  — 1) 

where 

M = assembled  mass  matix  (consistent  or  diagonal) 

K = assembled  linear  stiffness  matrix 
K0(<r)  = assembled  geometric  stiffness  matrix  for  given  stress  state 
ii  = acceleration  vector 
u = displacement  vector 
<r  = prestress  state 

The  prestressed  state  may  be  defined  in  several  ways.  Procedure  L_VIBRAT_1  assumes  that 
a membrane  prestressed  state  (AT®,  N° , N°y ) is  explicitly  prescribed. 

If  harmonic  motion  is  assumed,  then 


u = <f>i  sin  u>it  i = l,2,...  (3.7  — 2) 

where 

4>i  = ith  eigen  modeshape 

Wi  = ith  circular  frequency  (radians  per  second) 

The  ith  cyclic  frequency  /<  (in  hertz)  is 


and  the  period  2*  (in  seconds)  is 


/,= 


Wi_ 
2 7T 


Ti  = 


U 
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Substituting  equation  (3.7-2)  in  equation  (3.7-1)  gives 


(K  + K,(<r)  - = 0 * = 1,2,...  (3.7-3) 

where 

\i  = u>- . 


If  the  user  has  specified  the  reset  parameter  GRAV  in  processor  LAU  to  a value  of  unity  then 
the  matrix  M has  the  meaning  of  a “weight”  matrix  instead  of  a “mass”  matrix.  This 
reset  parameter  is  important  for  interpreting  the  eigenvalues  calculated  by  the  various 
eigensolvers. 

3.7.3  ALGORITHM 


The  algorithm  used  to  solve  equation  (3.7-1)  depends  on  the  value  of  the  globed  macrosym- 
bol eigensolver_name.  Processor  EIG2  is  used  if  eigensolver_name  is  defined  to  be  EIG2. 
This  processor  uses  a nodal-block  sparse  matrix  approach  as  described  in  reference  3.7-2. 
Processor  LAN  is  used  if  eigensolver_name  is  defined  to  be  LAM.  Processor  LANZ  is  used 
if  eigensolver_name  is  defined  to  be  LANZ.  These  processors  are  based  on  the  Lanczos  al- 
gorithm as  described  in  references  3.7-2  to  3.7-3.  If  this  global  macrosymbol  is  not  defined, 
procedure  L_VIBRAT_1  will  set  it  to  EIG2. 

3.7.4  PROCEDURE  USAGE 


Procedure  L_VIBRAT_1  may  be  invoked  by  the  *call  directive,  and  following  it  by  a list  of 
arguments  separated  by  semicolons(;)  and  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 


*call  L.VIBRAT-l  ( argl  » vail;  arg2  - val2;  ...) 


where  arg*  are  argument  names  and  val*  are  the  corresponding  values.  The  following 
are  valid  arguments  for  procedure  L_VIBRAT_1;  note  that  those  arguments  without  default 
values  are  mandatory,  while  the  others  are  optioned. 
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Argument 

PS_1 

PS_2 

PS_3 

Default  Value 

Meaning 

Prescribed  membrane  stres  resultant  N° 
Prescribed  membrane  stres  resultant  N° 
Prescribed  membrane  stres  resultant  N° 

ERR0R.T0L 

.0001 

Convergence  criterion  for  eigenvalues 

FUNCTION 

ALL 

Select  function  to  be  performed  by  procedure 

INIT.VECTORS 

0 

Number  of  initial  vectors  used  to  span  the  subspace 

ISEQ 

0 

Resequencing  method  to  be  used 

LDI 

1 

Logical  device  index 

KNAME 

K 

First  word  of  the  name  of  the  dataset  containing  the 
assembled  stiffness  matrix 

MASS.TYPE 

CONSISTENT 

Type  of  mass  matrix 

MAX.ITERS 

20 

Maximum  number  of  iterations 

N.GROUPS 

1 

N .MODES 

1 

Number  of  eigenvalues  to  converge 

PRINT 

<false> 

Flag  to  print  eigenvectors 

RENUMBER 

<true> 

Flag  to  resequence  node  numbers  for  equation  solver 

SHIFT 

0.0 

Eigenvalue  shift 

VC0N.SET 

1 

Constraint  set  for  vibration  analysis 

Tables  3.7-1,  3.7-2,  and  3.7-3  list  the  datasets  used  or  created  by  procedure  L_VIBRAT_1, 
the  procedures  invoked  by  procedure  L_VIBRAT_1,  and  the  processors  invoked  by  procedure 
L_VIBRAT_1 , respectively. 
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Table  3.7-1  Datasets  Input/Output  by  procedure  L_VIBRAT_1 


Input  Output 


Dataset 

Description 

AMAP..ic2.isize 

Factorization  Map  for  INV 

CEM.SPAR 

Consistent  Mass  Matrix 

<ES_NAME>.EFIL.O.nnod 

Element  Computational  Data 

ES. SUMMARY 

ES  Processor  Status 

DEF.<ES_NAME>.O.nnod 

Element  Defn.  (Connectivity) 

DEM.DIAG 

Diagonal  (Lumped)  Mass  Matrix 

DIR.<ES_NAME>.O.nnod 

Element  EFIL  Directory 

INV.KSHF.jt 

Factored  Shifted  System  Matrix 

INV.<KNAME>.jt 

Factored  System  Matrix 

JDF1.BTAB.1.8 

Model  Summary 

KG.SPAR.jdf2 

Assembled  geometric  stiffness  matrix 

KMAP..ic2.isize 

Model  Connectivity  Map 

<KN  AME>  .SPAR.jdf2 

Assembled  system  matrix 

VIBR.EVAL.l.;t 

Vibration  eigenvalues 

VIBR.MODE.l.jt 

Vibration  eigenvalues 

• j = <vcon_set> 


Table  3.7-2  Sub-Procedures  Invoked  by  procedure  L_VIBRAT_1 

Procedure 

Type 

Function 

ES 

External 

Element  utility  procedure 

FACTOR 

External 

Factors  assembled  stiffness  matrix 

L_VIBRAT_1 

Interned 

Main  procedure 
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Table  3.7-3  Processors  Invoked  by  Procedure  L.VIBRAT.l 

Procedure 

Type 

Function 

AUS 

Internal 

Arithmetic  utilities 

E 

Internal 

Initializes  EFIL  datasets 

EIG2 

Internal 

Solve  eigenvalue  problem  using  subspace  iteration 

ESt 

External 

Element  processors  based  on  GEP 

K 

Internal 

Assemble  system  matrix 

LAN 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

LANZ 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

RSEQ 

Internal 

Resequences  nodes  for  equation  solving 

TOPO 

Internal 

Generates  nodal  topology  maps 

VPRT 

Internal 

Print  SYSVEC  system  vectors 

3.7.5  ARGUMENT  DESCRIPTION 

3.7.5. 1 ERROR-TOL 

Convergence  criterion  for  eigenvalues  (default:  0.0001).  For  the  fc-th  iteration,  the  error 
measure  for  the  t-th  eigenvalue  is 

ip?  - 

‘ IWII 

The  i-th  eigenvalue  is  converged  if  6*  is  smaller  than  ERROR-TOL. 

3. 7. 5. 2 FUNCTION 

Select  function  to  be  performed  by  procedure  L-VIBRAT.l  (default:  ALL).  This  procedure 
may  be  used  to  perform  two  functions.  For  FUNCTION=ALL,  the  element  data  are  initialized 
and  elemental  stiffness  matrices  formed;  nodal  resequencing  may  be  performed,  the  mesh 
topology  is  analyzed,  the  system  stiffness  matrix  is  assembled  and  factored,  and  the  eigen- 
problem  is  solved.  For  FUNCTION=EIGEN,  procedure  L.VIBRAT.l  uses  a prescribed  prestress 
state  in  solving  the  eigenvalue  problem.  Using  the  FUNCTION  argument,  the  user  may  solve 
for  a variety  of  constraint  (boundary  conditions)  sets  on  a given  model. 
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3. 7.5. 3  IMIT-VECTOR 

Number  of  initial  vectors  used  to  span  the  subspace  (default:  0).  This  argument  defines 
the  number  of  trial  vectors  used  to  initiate  the  subspace  iteration.  If  INIT_VECT0R=0,  the 
number  of  initial  vectors  will  be  calculated  by  the  procedure  as 

INIT_VECTOR=MINIMUM  (2*N_M0DES,  N_modes  + 8) 


3. 7.5. 4 ISEO 

Resequencing  method  to  be  used  (default:  0).  If  the  argument  RENUHBER  is  <true>, 
then  nodal  resequencing  will  be  performed  using  processor  RSEQ.  The  method  used  by 
processor  RSEQ  to  resequence  the  nodes  depends  on  the  value  of  ISEQ.  If  the  argument 
ISEQ  is  greater  than  or  equal  to  zero,  then  that  method  will  be  used  (i.e.,  method*0 ,1,2,3; 
see  Section  6.1  of  the  CSM  Testbed  User’s  Manual,  ref.  3.7-1). 

3. 7.5. 5 LDI 

Logical  device  index  (default:  l). 

3. 7.5.6  KNAME 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 

3. 7. 5. 7 MASS-TYPE 

Type  of  mass  matrix  (default:  COHSISTEHT).  If  MASS-TYPE-CONSISTENT,  the  element  pro- 
cessor will  generate  consistent  element  mass  matrices  that  will  be  assembled  by  processor 
K to  form  the  system  mass  matrix.  If  MASS_TYPE=DIAGONAL,  the  element  processor  will 
generate  a diagonal  or  lumped  mass  matrix. 

3. 7.5. 8 N-GROUPS 

Element  group  number  (default:  1). 

3.7. 5.9  MAX-ITERS 

Maximum  number  of  iterations  (default:  20).  This  argument  specifies  the  maximum  num- 
ber of  iterations  that  can  be  used  per  call  to  eigensolver. 

3.7.5.10  M-MODES 

Number  of  converged  eigenvalues  desired  (default:  1).  This  argument  specifies  the  number 
of  eigenvalues  to  calculate  to  a convergence  criterion  of  ERR0R-T0L. 

3.7.5.11  PRINT 

Flag  to  print  modeshapes  (default:  <false>).  If  printing  of  these  computed  results  is 
requested,  processor  VPRT  will  be  used  to  print  the  vibration  modeshapes. 
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3.7.5.12  PS-1 

Prescribed  membrane  stress  resultant  AT"  for  the  prestressed  state. 

3.7.5.13  PS_2 

Prescribed  membrane  stress  resultant  N°  for  the  prestressed  state. 

3.7.5.14  PS-3 

Prescribed  membrane  stress  resultant  N°y  for  the  prestressed  state. 

3.7.5.15  REHUMBER 

Flag  to  resequence  node  numbers  prior  to  equation  solving  (default:  <true>).  If  the  argu- 
ment RENUMBERs<true>,  then  processor  RSEQ  will  be  used  to  perform  nodal  resequencing, 
otherwise  no  resequencing  will  be  performed.  Note  that  the  nodal  resequencing  may  greatly 
reduce  the  time  required  to  factor  and  solve  the  linear  system  of  equations. 

3.7.5.10  SHIFT 

Eigenvalue  shift  (default:  0 . 0).  Converged  eigenvalue  will  only  be  obtained  for  eigenvalues 
greater  than  SHIFT.  The  shift  parameter  refers  to  the  frequency  squared  (i.e.,  u>2)  for 
vibration  problems. 

3.7.5.17  VCON-SET 

Constraint  set  number  for  vibration  analysis  (default:  l).  This  argument  selects  which 
constraint  set  to  use  in  solving  the  linear  vibration  problem. 


3.7.0  PROCEDURE  FLOWCHART 


L_VIBRAT_1 

ES 

ES 

FACTOR 


(main  procedure) 

(initialize,  form  K and  M) 

(form  Kg) 

(factor  using  vibration  boundary  conditions) 


3.7.7  LIMITATIONS 


None. 

3.7.8  ERROR  MESSAGES  AND  WARNINGS 

None. 
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3.7.9  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  L.VIBRAT_1  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or 
all  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


( FUNCTION 

- ALL  ; 

VCON.SET 

a 

1 

f 

ERROR.TOL 

* 

.0001  ; 

INIT.VECTOR 

» 0 ; - 

ISEq 

s 

0 

9 “ 

KNAME 

m 

K 

i “ 

MAX. ITERS 

as 

20 

— 

N.MODES 

= 

1 

— 

N.GROUPS 

s 

1 

— 

PS.l 

— 

PS.2 

— 

PS.3 

— 

PRINT 

= 

<true> 

RENUMBER 

a 

<true> 

SHIFT 

* 

0 

•0  ; 

— . Select  function 

. Select  vibration  constraint  set 

— . Eigenvalue  convergence  criterion 

- . Number  of  initial  vectors 

- . Select  resequencing  method 

- . First  word  of  stiffness  matrix 

- . dataset  name 

Maximum  number  of  iterations 
Number  of  eigenvalues 


; — . PRINT  flag 
; — . RESEqtJENCING  flag 
Eigenvalue  shift 

) 


Before  procedure  L-VIBRAT.l  is  called,  the  global  macrosymbol  eigensolver_name  should 
be  defined  as  described  in  Section  3.7-3;  otherwise,  the  default  value  of  EIG2  will  be  used. 


3.7.10  PROCEDURE  LISTING 


3.7.11  REFERENCES 

3.7- 1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 

3.7- 2  Bostic,  S.  W.  and  Fulton  R.  E.:  A Lanczos  Eigenvalue  Method  on  a Parallel  Com- 

puter. AIAA  Paper  No.  87-0725-CP. 

3.7- 3  Jones,  Mark  T.  and  Patrick,  Merrell  L.:  The  Use  of  Lanczos ’s  Method  to  Solve 

the  Large  Generalized  Symmetric  Definite  Eigenvalue  Problem.  NASA  CR-181914, 
September  1989.  (Also  available  as  ICASE  Report  No.  89-69). 
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3.8  Procedure  L_VIBRAT_2 

3.8.1  GENERAL  DESCRIPTION 

Procedure  L_VIBRAT_2  performs  a linear  vibration  analysis  about  a prescribed  prestressed 
state.  The  eigensolver  is  selected  by  defining  the  global  macrosymbol  eigensolver_name 
to  be  the  name  of  the  desired  processor  ( e.g .,  EIG2,  LAN),  and  the  structural  element  pro- 
cessors (ESt)  form  the  elemental  stiffness  and  mass  matrices.  The  procedure  assumes  that 
the  finite  element  model  and  boundary  conditions  have  already  been  generated,  that  the 
prestressed  state  has  been  prescribed,  and  that  the  vibration  modeshapes  and  frequencies 
need  to  be  calculated. 

3.8.2  THEORY 

Linear  vibration  analyses  are  formulated  using  the  equations  of  motion  for  an  undamped 
structure.  For  the  case  of  prestressed  state,  the  equations  of  motion  are 

Mu  + Ku  + Ks(<r)u  = 0 (3.8-1) 

where 

M = assembled  mass  matix  (consistent  or  diagonal) 

K = assembled  linear  stiffness  matrix 
Ky(o’)  = assembled  geometric  stiffness  matrix  for  given  stress  state 
ii  = acceleration  vector 
u = displacement  vector 
a — prestress  state 

The  prestressed  state  may  be  defined  in  several  ways.  Procedure  L_VIBRAT_2  assumes  that 
the  prestressed  state  will  be  first  calculated  using  procedure  L_STATIC. 

If  harmonic  motion  is  assumed,  then 


u = <t>i  sin  u>it  i = 1,2,...  (3.8  — 2) 

where 

<t>i  = ith  eigen  modeshape 

(jJi  — tth  circular  frequency  (radians  per  second) 

The  *th  cyclic  frequency  /<  (in  hertz)  is 


and  the  period  T{  (in  seconds)  is 


fi  = 


Ui_ 


Ti  = 


h 
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Substituting  equation  (3.8-2)  in  equation  (3.8-1)  gives 


(K  + Kg(<r)  - XiMtyi  = 0 * = 1,2,...  (3.8-3) 

where 


If  the  user  has  specified  the  reset  parameter  GRAV  in  processor  LAU  to  a value  of  unity  then 
the  matrix  M has  the  meaning  of  a “weight”  matrix  instead  of  a “mass”  matrix.  This 
reset  parameter  is  important  for  interpreting  the  eigenvalues  calculated  by  the  various 
eigensolvers. 

3.8.3  ALGORITHM 


The  algorithm  used  to  solve  equation  (3.3-1)  depends  on  the  value  of  the  globed  macrosym- 
bol eigensolver_naiiie.  Processor  EIG2  is  used  if  eigensolver-name  is  defined  to  be  EIG2. 
This  processor  uses  a nodal-block  sparse  matrix  approach  as  described  in  reference  3.3-2. 
Processor  LAN  is  used  if  eigensolver_name  is  defined  to  be  LAV.  Processor  LANZ  is  used 
if  eigensolver_name  is  defined  to  be  LANZ.  These  processors  are  based  on  the  Lanczos  al- 
gorithm as  described  in  references  3.3-2  to  3.3-3.  If  this  global  macrosymbol  is  not  defined, 
procedure  L-VIBRAT-2  will  set  it  to  EIG2. 

3.8.4  PROCEDURE  USAGE 


Procedure  L_VIBRAT_2  may  be  invoked  by  the  *call  directive,  and  following  it  by  a list  of 
arguments  separated  by  semicolons(;)  and  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 


♦call  L-VIBRAT-2  ( argl  = vail;  arg2  * val2;  ...) 


where  arg*  are  argument  names  and  valt  are  the  corresponding  values.  The  following 
are  valid  arguments  for  procedure  L-VIBRAT-2;  note  that  those  arguments  without  default 
values  are  mandatory,  while  the  others  are  optional. 
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Argument 

Default  Value 

Meaning 

C0NS_SET 

1 

Constaint  set  number  for  prestress  analysis 

DIRECTION 

0 

Direction  for  element  stress  output 

T7DDOTJ  »rnT 
wukwn.  x uu 

• VV  V A 

Convergence  criterion  for  eigenvalues 

FUNCTION 

ALL 

Select  function  to  be  performed  by  procedure 

INIT-VECTORS 

0 

Number  of  initial  vectors  used  to  span  the  subspace 

ISEq 

0 

Resequencing  method  to  be  used 

LDI 

1 

Logical  device  index 

KNAHE 

K 

First  word  of  the  name  of  the  dataset  containing  the 

assembled  stiffness  matrix 

LOAD-SET 

1 

Load  set  number 

MASS-TYPE 

CONSISTENT 

Type  of  mass  matrix 

MAX-ITERS 

20 

Maximum  number  of  iterations 

N.GROUPS 

1 

N-MODES 

1 

Number  of  eigenvalues  to  converge 

PRINT 

<false> 

Flag  to  print  computed  solutions 

REACTION 

<false> 

Flag  to  compute  internal  forces  or  reactions 

RENUMBER 

<true> 

Flag  to  resequence  node  numbers  for  equation  solver 

SHIFT 

0.0 

Eigenvalue  shift 

STRESS 

<false> 

Flag  to  compute  element  stresses  (resultants) 

VCON-SET 

1 

Constraint  set  for  vibration  analysis 

Tables  3.8-1,  3.8-2,  and  3.8-3  list  the  datasets  used  or  created  by  procedure  L_VIBRAT_2, 
the  procedures  invoked  by  procedure  L_VIBRAT_2,  and  the  processors  invoked  by  procedure 
L-VIBRAT.2 , respectively. 
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Table  3.8-1  Datasets  Input/Output  by  procedure  L_VIBRAT_2 


Input  Output 


Dataset 

Description 

AMAP..ic2.isize 

Factorization  Map  for  INV 

CEM.SPAR 

Consistent  Mass  Matrix 

<ES_NAME>.EFIL.O.nnod 

Element  Computational  Data 

ES. SUMMARY 

ES  Processor  Status 

DEF.<ES_NAME>.O.nnod 

Element  Defn.  (Connectivity) 

DEM.DIAG 

Diagonal  (Lumped)  Mass  Matrix 

DIR.<ES_NAME>  .0  .nnod 

Element  EFIL  Directory 

INV.KSHF.jt 

Factored  Shifted  System  Matrix 

INV.<KNAME>.;t 

Factored  System  Matrix 

JDF1.BTAB.1.8 

Model  Summary 

KG.SPAR.jdf2 

Assembled  geometric  stiffness  matrix 

KMAP..ic2.isize 

Model  Connectivity  Map 

<KNAME>  .SPAR.jdf2 

Assembled  system  matrix 

VIBR.EVAL.l./ 

Vibration  eigenvalues 

VIBR.MODE.l.j't 

Vibration  eigenvalues 

* j = <vcon_set> 


Table  3.8-2  Sub-Procedures  Invoked  by  procedure  L_VIBRAT_2 

Procedure 

Type 

Function 

ES 

External 

Element  utility  procedure 

FACTOR 

External 

Factors  assembled  stiffness  matrix 

LJSTATIC 

Internal 

Static  solution  procedure 

L.VIBRAT.2 

Internal 

Main  procedure 

I 
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Table  3.8-3  Processors  Invoked  by  Procedure  L_VIBRAT_2 

Procedure 

Type 

Function 

AUS 

Internal 

Arithmetic  utilities 

E 

Internal 

Initializes  EFIL  datasets 

EIG2 

Internal 

Solve  eigenvalue  problem  using  subspace  iteration 

ESt 

External 

Element  processors  based  on  GEP 

K 

Internal 

Assemble  system  matrix 

LAN 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

LANZ 

External 

Solve  eigenvalue  problem  using  Lanczos  method 

RSEQ 

Internal 

Resequences  nodes  for  equation  solving 

TOPO 

Internal 

Generates  nodal  topology  maps 

VPRT 

Internal 

Print  SYSVEC  system  vectors 

3.8.5  ARGUMENT  DESCRIPTION 

3.8. 5.1  CONS-SET 

Constraint  set  number  for  prestress  solution  (default:  1).  This  argument  selects  which 
constraint  set  to  use  in  solving  the  linear  system  of  equations. 

3.8. 5.2  DIRECTION 

Direction  for  the  element  stress  (stress  resultant)  output  (default:  0).  The  element  stress 
coordinate  system  will  be  used  if  direct  ion=0.  The  material  axes  (xm,  ym,  zm)  will  be 
used  if  directional;  the  material  axes  (ym,  zm,  xm ) will  be  used  for  direction=2;  and 
the  material  axes  (zm,  xm,  ym)  will  be  used  for  directions.  For  isotropic  materials,  the 
first  material  axis  is  replaced  by  the  corresponding  global  axis  (see  Section  4.3.3.9  of  the 
CSM  Testbed  User’s  Manual,  ref.  3.4-2). 

5.8.5.3  ERROR-TOL 

Convergence  criterion  for  eigenvalues  (default:  0.0001).  For  the  k- th  iteration,  the  error 
measure  for  the  t-th  eigenvalue  is 

> IP?  - A?-)|| 

‘ IWII 

The  t-th  eigenvalue  is  converged  if  6*  is  smaller  than  ERROR-TOL. 
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3.8. 5. 4 FUNCTION 

Select  function  to  be  performed  by  procedure  L_VIBRAT_2  (default:  ALL).  This  procedure 
may  be  used  to  perform  four  functions.  For  FUNCTION=ALL,  the  element  data  are  initialized 
and  elemental  stiffness  matrices  formed;  nodal  resequencing  may  be  performed,  the  mesh 
topology  is  analyzed,  the  system  stiffness  matrix  is  assembled  and  factored,  the  displace- 
ment solution  is  obtained,  optionally  element  stresses  (stress  resultants)  and  interned  nodal 
forces  (reactions)  computed  and  the  eigenproblem  is  solved.  For  FUNCTION=FACT_SOLV,  pro- 
cedure L-VIBRAT.2  assumes  that  the  system  stiffness  matrix  has  previously  been  assembled 
and  that  nodal  resequencing  has  been  performed.  The  procedure  then  proceeds  to  factor 
the  system  stiffness  matrix,  solves  for  the  displacement  solution,  optionally  computes  the 
element  stresses  (stress  resultants)  and  internal  nodal  forces  (reactions)  and  solves  the 
eigenproblem.  For  FUNCTI0N=S0LV,  procedure  L_VIBRAT_2  assumes  that  the  system  stiff- 
ness has  previously  been  formed  and  factored.  The  procedure  then  proceeds  to  solve  for 
the  displacement  solution,  optionally  computes  the  element  stresses  (stress  resultants)  and 
internal  nodal  forces  (reactions)  and  solves  the  eigenproblem.  For  FUNCTION=EIGEN,  pro- 
cedure L_VIBRAT_2  uses  a previously  computed  prestress  state  in  solving  the  eigenvalue 
problem.  Using  the  FUNCTION  argument,  the  user  may  solve  for  a variety  of  constraint 
(boundary  conditions)  sets  on  a given  model  subjected  to  a variety  of  loading  conditions. 

5.8.5.5  INIT-VECTOR 

Number  of  initial  vectors  used  to  span  the  subspace  (default:  0).  This  argument  defines 
the  number  of  trial  vectors  used  to  initiate  the  subspace  iteration.  If  INIT_VECT0R=0,  the 
number  of  initial  vectors  will  be  calculated  by  the  procedure  as 

INIT_VECTOR=MINIMUM  (2*N_M0DES,  N_modes  + 8) 


3.8. 5.0  ISEQ 

Resequencing  method  to  be  used  (default:  -l).  If  the  argument  RENUMBER  is  <true>, 
then  nodal  resequencing  will  be  performed  using  processor  RSEQ.  The  method  used  by 
processor  RSEQ  to  resequence  the  nodes  depends  on  the  value  of  ISEQ.  If  the  argument 
ISEQ  is  greater  than  or  equal  to  zero,  then  that  method  will  be  used  (t.e.,  method=0 ,1,2,3; 
see  Section  6.1  of  the  CSM  Testbed  User’s  Manual,  ref.  3.8-1). 

3.8. 5. 7 KNAME 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 

3.8. 5. 8 LDI 

Logical  device  index  (default:  l). 

3.8. 5.0  LOAD-SET 

Load  set  number  (default:  l).  This  argument  selects  which  load  set  to  use  as  a right-hand 
side  vector. 
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3.8.5.10  HASS-TYPE 

Type  of  mass  matrix  (default:  CONSISTENT).  If  MASS_TYPE*CONSISTENT,  the  element  pro- 
cessor will  generate  consistent  element  mass  matrices  that  will  be  assembled  by  processor 
K to  form  the  system  mass  matrix.  If  MASS_TYPE»DIAGONAL,  the  element  processor  will 
generate  a diagonal  or  lumped  mass  matrix. 

3.8.5.11  MAX-ITERS 

Maximum  number  of  iterations  (default:  20).  This  argument  specifies  the  maximum  num- 
ber of  iterations  that  can  be  used  per  call  to  eigensolver. 

3.8.5.12  H-MODES 

Number  of  converged  eigenvalues  desired  (default:  l).  This  argument  specifies  the  number 
of  eigenvalues  to  calculate  to  a convergence  criterion  of  ERR0R-T0L. 

3.8.5.13  PRINT 

Flag  to  print  modeshapes  (default:  <false>).  If  printing  of  these  computed  results  is 
requested,  processor  VPRT  will  be  used  to  print  the  vibration  modeshapes. 

3.8.5.14  REACTION 

Flag  to  compute  the  internal  nodal  forces  (default:  <true>)  If  the  argument  REAC- 
TI0N*<true>,  then  the  internal  forces  will  be  computed  by  calling  procedure  INT-FORC 
(see  Section  6.2). 

3.8.5.15  RENUMBER 

Flag  to  resequence  node  numbers  prior  to  equation  solving  (default:  <true>).  If  the  argu- 
ment RENUMBER=<true> , then  processor  RSEQ  will  be  used  to  perform  nodal  resequencing, 
otherwise  no  resequencing  will  be  performed.  Note  that  the  nodal  resequencing  may  greatly 
reduce  the  time  required  to  factor  and  solve  the  linear  system  of  equations. 

3.8.5.10  SHIFT 

Eigenvalue  shift  (default:  0.0).  Converged  eigenvalue  will  only  be  obtained  for  eigenvalues 
greater  than  SHIFT.  The  shift  parameter  refers  to  the  frequency  squared  (i.e.,  u>2)  for 
vibration  problems. 

3.8.5.17  STRESS 

Flag  to  compute  element  stresses  or  stress  resultants  (default:  <f  alse>).  If  the  argument 
STRESS=<true>,  then  the  element  stresses  will  be  computed  at  the  location  and  in  the 
direction  specified  by  the  arguments  LOCATION  and  DIRECTION,  respectively,  by  calling 
procedure  STRESS  (see  Section  6.4). 
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3.8.5.18  VCDN-SET 

Constraint  set  number  for  vibration  analysis  (default:  l).  This  argument  selects  which 
constraint  set  to  use  in  solving  the  linear  vibration  problem. 


3.8.6  PROCEDURE 

L.VIBRAT.2 

LJSTATIC 

ES 

FACTOR 

SOLVE 

STRESS 

ES 

INT_F0RCE 

ES 

ES 

FACTOR 


FLOWCHART 

(main  procedure) 

(linear  static  analysis  procedure) 

(initialize,  form  K find  M) 

(factor  assembled  stiffness  matrix) 

(solve  linear  system  of  equations) 

(stress/st rain  recovery  procedure) 

(calculate  element  and  nodal  stress/strain) 
(internal  force  procedure) 

(internal  force  calculation) 

(form  K9) 

(factor  using  vibration  boundary  conditions) 


3.8.7  LIMITATIONS 

None. 


3.8.8  ERROR  MESSAGES  AND  WARNINGS 


None. 


3.8.9  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  L_VIBRAT_2  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or 
all  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


•call  L_VIBRAT_2  ( FUNCTION  * ALL  ; — . Select  function 

VCON.SET  * 1 ; — . Select  vibration  constraint  set 

ERR0R_T0L  = .0001  ; — . Eigenvalue  convergence  criterion 
INIT_VECT0R  ■ 0 ; — . Number  of  initial  vectors 
ISEQ  * -1  ; — . Select  resequencing  method 
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KNAME  * K ; — . First  word  of  stiffness  matrix 

— . dataset  name 

MAX_ITERS  = 20;  — Minimum  number  of  iterations 

N.MODES  = 1 ; — Number  of  eigenvalues 

nniTn  nwn  = 4 * n ^ j • „ i.  _ . a. 

s x i — . Doxecii  constraint  set 

DIRECTION  =0  ; — . Select  direction  for  element  stresses 

LOAD.SET  =1  ; — . Select  load  set 

REACTION  - <false>  ; — . REACTIONS  flag 

STRESS  = <false>  — . STRESS  flag 

PRINT  « <true>  ; — . PRINT  flag 

RENUMBER  = <true>  ; — . RESEQUENCING  flag 

SHIFT  * 0.0  ; Eigenvalue  shift 

Before  procedure  L.VIBRAT.2  is  called,  the  global  macrosymbol  eigensolver_name  should 
be  defined  as  described  in  Section  3.8-3;  otherwise,  the  default  value  of  EIG2  will  be  used. 


3.8.10  PROCEDURE  LISTING 


3.8.11  REFERENCES 
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3.8- 2  Bostic,  S.  W.  and  Fulton  R.  E.:  A Lanczos  Eigenvalue  Method  on  pi  Parallel  Com- 

puter. AIAA  Paper  No.  87-0725-CP. 

3.8- 3  Jones,  Mark  T.  and  Patrick,  Merrell  L.:  The  Use  of  Lanczos ’s  Method  to  Solve 
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September  1989.  (Also  available  as  ICASE  Report  No.  89-69). 
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3.9  Procedure  NL_STATIC_1 

3.9.1  GENERAL  DESCRIPTION 

Procedure  HL_STATIC_1,  written  by  G.  M.  Stanley  of  Lockheed  Palo  Alto  Research  Labora- 
tory, performs  nonlinear  static  analysis  based  on  a modified  Newton/Raphson  incremental 
strategy  for  automatic  load-step  control  ( e.g .,  ref.  3.1).  Procedure  HL_STATIC_1  relies  on 
the  Generic  Element  Processor  (i.e.,  structural  element  processors,  ESi)  and  hence  has  a 
corotational  option  for  geometric  nonlinearity  that  enables  arbitrarily  large  rotations. 

Procedure  HL_STATIC_1  solves  a nonlinear  algebraic  equation  system  of  the  form: 


fint(d)  = fei<(A)  (3.9-1) 

where  fm<  is  the  nonlinear  internal  force  vector  for  the  discrete  (i.e.,  finite  element)  system, 
fex<  is  the  external  force  vector,  d is  the  displacement  vector,  and  A is  a load  factor.  The 
basic  modified  Newton/Raphson  procedure  solves  this  system  of  equations  by  linearizing 
it  at  each  load  level  (i.e.,  fixed  A),  leading  to  the  solution  of  the  following  linear  equations: 

(,.9-2) 

j(*+1)  _ ,|(*)  _L 
°n+l  — Qn+1  + ®an+l 

within  an  iteration  loop  where  »+l  is  the  current  (fixed)  load-step  number,  i+1  is  the  itera- 
tion number  at  that  load-step,  £d  is  the  iterative  displacement  change,  and  r = ttzi  — f m< 
is  the  nonlinear  residual  force  vector.  K is  the  effective  tangent  stiffness  matrix,  which 
is  updated  only  at  the  first  iteration  of  selected  load  steps  (though  typically  at  every 
step).  Iteration  is  continued  until  the  inner  product  of  jd  and  r become  smaller  than  a 
user-specified  error  tolerance. 

An  arc-length  constraint  is  added  to  the  above  equations  so  that  i)  the  user  doesn’t  have 
to  select  the  load  increment  (AA  = An+i  - An),  and  ii)  the  solution  algorithm  can  auto- 
matically traverse  limit  points  — maxima  and  minima  in  the  load-displacement  “curve”. 
The  user  need  only  specify  the  initial  load  factor,  Ai;  the  constraint  equation  converts 
this  to  an  “arc-length”  increment  in  load-displacement  space,  and  adaptively  adjusts  this 
increment  based  on  the  iterative  performance  of  the  algorithm.  Details  of  this  algorithm 
are  given  in  the  theory  and  algorithm  sections. 


3.9.2  THEORY 
3.9. 2.1  Introduction 

Procedure  ML_STATIC_1  performs  a quasi-static  analysis  of  a system  of  nonlinear  equi- 
librium equations  using  an  adaptive  arc-length-controlled  Newton/Raphson  incremen- 
tal/iterative solution  algorithm.  The  arc-length  method  adopted  here  is  based  on  a variant 
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of  Crisfield’s  algorithm  (ref.  3.1),  where  instead  of  using  a nonlinear  (quadratic)  arc- 
length  constraint  equation  in  conjunction  with  the  linearized  equilibrium  equations,  the 
constraint  equation  is  consistently  linearized  as  well.  This  eliminates  the  pitfalls  associ- 
ated with  quadratic  root  selection  in  Crisfield’s  algorithm.  By  combining  this  modification 
with  i)  polynomial  extrapolation  of  converged  solutions  to  obtain  step-predictor  solutions, 

ii)  an  energy  error  norm  that  properly  weights  translational  and  rotational  freedoms,  and 

iii)  generalization  to  large  rotations,  specified  displacements  and  live  loads;  the  present 
algorithm  is  both  more  general  and  more  robust  than  the  basic  algorithm.  Additional 
enhancements  to  overcome  hard  singularities  at  limit  and  bifurcation  points  are  currently 
under  development;  and  will  be  incorporated  as  procedures  at  a later  date. 
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d Displacement  vector. 

£d  Iterative  change  in  d. 

Ad  Incremental  (load-step)  change  in  d. 

djj  Displacement  vector  at  iteration  t of  step  n. 

AdJj  Incremental  (step)  change  in  d.  Ad^‘+j  ^ = d^j  — dn 

Sd  Tangential  displacement  — K f 

A l Incremental  arc-length  (step)  parameter. 

f External  force  vector  - base  load. 

f‘nt  Internal  force  vector, 

r Residual  force  vector. 

K Stiffness  matrix. 

£d  Basic  (fixed-load)  iterative  change  in  d. 

* • , . ^ 

5d  Linear  combination  of  £d  and  <5d. 

num-cuts  Number  of  times  load  step  has  been  cut  in  half  at  current  step. 
num_div  Number  of  consecutive  iterations  at  which  divergence  occurs. 
cn  Extrapolation  coefficient  corresponding  to  step  n. 

? Relative  error  in  energy  norm. 

e Absolute  error  in  energy  norm. 

eref  Reference  value  of  e;  initialized  as  zero. 

€toi  Relative  error  tolerance  (default:  10-4). 

A Load  factor. 

AA  Incremental  (load-step)  change  in  A. 

Ku*  Stiffness  submatrix  coupling  specified  (s)  displacement  components  with  force 

components  corresponding  to  unknown  (u)  displacements. 

d Base  value  of  specified  displacement  vector. 

d*  Current  value  of  specified  displacement  vector,  d*  = Ad  . 


3.0. 2. 2 Nonlinear  Equations 


The  set  of  nonlinear  equations  solved  by  the  present  algorithm  consist  of:  i)  the  system 
of  equilibrium  equations  for  the  discrete  (finite  element)  model,  and  ii)  a single  constraint 
equation  governing  the  maximum  “arc-length”  to  be  traversed  in  a single  solution  incre- 
ment along  a curve  in  load-displacement  space.  These  equations  may  be  expressed  as 
follows: 


r(d,A)  = 0 (Equilibrium) 

c(d,A)  = 0 (Arc-length  Constraint) 
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where  d is  the  displacement  vector  representing  all  of  the  degrees-of-freedom  (DOFs)  for  the 
discrete  model,  and  A is  an  external  load  parameter.  In  conventional  load-  or  displacement- 
controlled  solution  algorithms,  A is  usually  specified  by  the  user.  In  an  arc-length  controlled 
algorithm  like  the  present  one,  A is  treated  as  an  additional  unknown.  Thus,  there  are 
just  as  many  independent  equations  in  equation  3.9-3  as  there  are  unknowns.  The  vec- 
tor r represents  the  residual  (or  out-of-balance)  force  vector,  which  is  identically  zero  at 
equilibrium. 

For  the  special  case  of: 

• Displacement-independent  loading 

• Proportional  (one-parameter)  force  loading 

• Load-independent  arc-length  constraint 

r and  c take  on  the  following  form: 


r(d, A)  = Af"‘  - finl(d) 
c(d,  A)  = || Ad||2  - At2 


where  f is  a normalized  (base-value)  external  load  vector,  f,nt  is  the  nonlinear  internal 
force  vector,  Ad  is  an  incremental  displacement  vector,  defined  as 

Ad  = d - dn  (3.9-5) 

in  which  dn  is  the  known  displacement  vector  at  a nearby  (previous)  configuration,  and 
A£  is  a prescribed  arc-length  parameter  defining  the  size  of  the  increment. 

The  problem  statement  then  is  to  solve  equation  3.9-3  for  a statically  connected  set  of  con- 
figurations, (d,A),  representing  the  load-displacement  “history”  of  the  structural  model. 
Note  that  due  to  the  nonlinear  nature  of  the  equations,  this  history  is  not  always  unique. 
For  example,  at  pure  bifurcation  points,  the  present  algorithm  cannot  determine  the  cor- 
rect path,  unless  some  sort  of  imperfection  or  “trigger”  is  introduced  by  the  user  - thus 
converting  the  bifurcation  point  into  a limit  point.  Limit  points  (i.e.,  local  maximums  and 
minimums  in  the  load-displacement  curve)  cause  no  difficulty  for  the  present  algorithm  — 
except  when  a load-step  happens  to  lie  “too  close”  to  the  actual  limit  point  (see  procedure 
NL_STATIC_2  for  a solution  to  this  rare  but  frustrating  problem). 

3.9. 2. 3 Linearized  Equations 

To  solve  the  above  nonlinear  equations,  we  use  the  modified  Newton/Raphson  algorithm, 
which  requires  their  linearization  - i.e.,  first-order  Taylor  series  expansion  of  the  simultane- 
ous equations.  The  solution  to  the  linearized  equations  is  then  used  to  update  the  nonlinear 
solution  in  an  iterative  process  that  continues  until  convergence  has  been  obtained  at  a 
given  configuration.  Furthermore,  the  final  configuration  is  typically  obtained  as  a series 
of  steps , or  increments,  with  a new  iteration  cycle  occuring  within  each  step;  and  with  in- 
formation from  preceding  steps  used  to  predict  a starting  solution  at  the  new  step.  (This  is 
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commonly  called  an  “incremental/iterative”  algorithm.)  Note  that  the  iterative  changes  in 
displacement  and  load-factor,  which  we  shall  denote  £d  and  SX,  respectively,  are  different 
than  the  incremental  changes,  denoted  by  Ad  and  AA.  The  incremental  load/displacement 
changes  are  used  to  advance  from  one  converged  solution  (dn,  An)  to  another  (dn+i,  An+1, 
while  the  iterative  changes  all  refer  to  successive  approximations  (d^j,  A^j)  of  the  same 
target  configuration  (dn+i,An+i).  Thus,  £d  converges  to  zero  at  a given  configuration, 
while  Ad  converges  to  a value  dictated  by  the  arc-length  constraint  equation  3.9-4b* 


Linearization  of  equations  3.9-4  about  a reference  configuration  (d,A)  results  in  the  fol- 
lowing expressions: 


r(d,A)  a r(d,A)  + Jg(d,A)«d  + |j(d,A)«A  = 0 
c(d, A)  a c(3,I)  + |^(3, 1)«d  + ^(d,I)«A  = 0 


(3.9  - 6) 


where  for  the  special  assumptions  listed  in  Section  3.9.9. 1,  the  partial  derivatives  in  equa- 
tion 3.9-6  become: 

^(d,A)  = -K(d), 

|j(d,A)  = 2 Ad, 

where  K = dftnt/dd  is  the  tangent  stiffness  matrix.  Substituting  equation  3.9-7  into 
equation  3.9-6  leads  to  the  simultaneous  linear  equations: 


£(d,x)  = r* 

1^(3, A)  = 0 


(3.9  - 7) 


where 


— -^ext 

K£d  = r + 6\f 
2 Ad  • $d  = c 


(3.9  - 8) 


r = r(cT,A), 


c = c(5,T), 


f K(3)  for  True  Newton 
( K(dn)  for  Modified  Newton 


Solving  the  first  of  equations  3.9-8  for  £d  leads  to 


Sd  = K"1  [r  +f"‘a]  = Sd  + SdS\ 


where 


Sd  = K 1r 

/v  l^eif 

Sd  = K f 


(3.9  - 9) 


(3.9  - 10) 


(3.9  - 11) 


* The  reason  for  using  a series  of  increments,  instead  of  solving  for  the  final  solution  in  one 
single  increment,  is  that  the  Newton/Raphson  method  converges  only  if  the  starting  solution 
is  sufficiently  “close”  to  the  final  solution. 
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Similarly,  we  can  solve  for  SX , by  substituting  equation  3.9-10  into  equation  3.9-8b,  i.e., 


c + 2Ad  • £d  + 2( Ad  • $d)£A  = 0 


(3.9  - 12) 


which  yields 


— c — 2 Ad  . 6d  _ Al2  - ||Ad||2  - 2Ad  • Sd 
2Ad  • £d  2Ad  ■ Sd 


(3.9  - 13) 


3. 9. 2. 4 Update  Procedure 

The  solution  update  procedure  - from  one  iteration  to  the  next  at  a fixed  arc-length 
increment  from  a converged  solution  - consists  of  the  following  two  (sequential)  equations: 


6X  = Al2  — 2Ad  — HAd[|2 
’ 2Ad  • Sd 

2)  Sd  = Sd  + 6d  SX 


(3.9  - 14) 


where  £d  and  £d  are  first  computed  using  equation  3.9-11,  and  Ad  is  the  displacement 
increment  from  the  previous  converged  solution  to  the  previous  iterate  of  the  current 
solution,  i.e.,  d — dn. 

Then  we  simply  apply  the  update  formulas: 

d = d + 6d 

A = X + SX 

where  special  consideration  must  be  given  to  equation  3.9-15a  in  the  case  of  problems  with 
large-rotational  degrees-of-freedom  (see  Section  3.9.2.10). 


(3.9  - 15) 


3. 9. 2. 5 Predictor  Solutions;  arc-length-Constraint  and  Extrapolation  Techniques 

To  obtain  a prediction  for  d„+i  and  An+i  at  the  beginning  of  step  n + 1 (so  that  the 
Newton  iterations  may  occur  within  a sufficiently  small  neighborhood  of  the  converged 
solution),  we  use  one  of  the  following  two  procedures: 

1)  The  arc-length  constraint  equation  3.9-4b 
or 

2)  Quadratic  extrapolation  of  a series  of  converged  solutions 
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The  first  approach  ( arc-length  constraint ) leads  to  the  following  predictor  equations: 


(3.9  - 16) 


where  the  sign  in  front  of  AA  in  equation  3.9-16b  is  taken  as  the  sign  of  the  determinant 
of  K.  Equation  3.9-16a  was  obtained  by  noting  that 


Ad'.'l,  = 

<d£J. 

(3.9  - 17) 

which  from  equation  3.9-10  can  be  written  as 

+ sxl'l,  M„+1  = AXi‘1,  «dn+1 

(3.9  - 18) 

since 

Sdl+i  = K"1  r„ 

o 

II 

o 

ri 

U 

II 

(3.9  - 19) 

and 

SX(1)  - 

0An+ 1 - 

AA<'», 

(3.9  - 20) 

Then,  equation  3.9-16b  follows  by  substituting  equation  3.9-16a  into  the  arc-length  con- 
straint equation 

l|Ad<„'],ll  = A t (3.9-21) 


The  second  approach  ( quadratic  extrapolation)  leads  to  the  following  predictor  equations: 


d(1) 

"n+l 

— Cn 

+ 

Cfl-l 

dn-l 

+ 

cn— 2 dn_2 

A(1) 

''n+l 

II 

o 

3 

3 

+ 

Cn-1 

Xn—1 

+ 

On— 2 An_2 

(3.9  - 22) 


where  (dn,A„),  (dn_i,An_i),  and  (d„_2,A„_2)  are  the  converged  solutions  at  the  three 
previous  (consecutive)  load  steps,  and  the  c;  are  the  quadratic  Lagrange  interpolation 


functions: 


(ln+1  ~ ln-2)(ln+l  — ln-l) 
(tn  ~ ln-2)(en  ~ in-l) 


(ln+i  ~ A>— 2)(^n+l  In) 

(^n-1  ^n— 2 )(^n— 1 ^n) 

(ln+1  ~ In— l)(ln+l  In) 
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The  arc-length  parameter,  £,  is  computed  by  arbitrarily  setting  tn-i  = 0,  and  accumulating 
the  incremental  parameters,  At.  Thus, 

tn-2  — 0 

tn—i  — Atn— i 

tn  — tn— i Atn 

tn+ i = tn  + A£n+i 

where  the  arc-length  increments,  Aln-2i  Aln- i,  A tn,  and  Atn+i  are  defined  by  the  adap- 
tive algorithm  described  in  Section  3.9. 2.6. 

Note  that  unlike  the  arc-length-based  predictor  equations  3.9-16,  the  above  extrapolation 
formulas  do  not  require  any  additional  information  to  determine  the  direction  (i.e.,  sign) 
of  the  load  increment.  This  is  because  the  curvature  of  the  quadratic  polynomial  used 
for  extrapolation  automatically  senses,  and  enables  the  traversal  of,  turning  points  in  the 
solution  path. 

Quadratic  extrapolation  is  usually  much  more  efficient  than  the  arc-length  constraint  ap- 
proach for  computing  the  predictor  solutions.  In  some  cases,  extrapolation  can  reduce  the 
number  of  load  steps  by  up  to  an  order  of  magnitude.  However,  in  other  cases  - e.g., 
around  very  sharp  turns  in  load-displacement  space  - quadratic  extrapolation  may  be  too 
smooth  to  capture  the  sudden  changes.  In  such  cases,  small,  arc-length- controlled  predictor 
steps  may  be  the  most  practical  strategy  for  getting  through  the  critical  phases.  (Adaptive 
algorithms  for  selectively  switching  between  extrapolation  and  arc-length  step  predictors 
are  recommended  as  a topic  for  future  research.) 


(3.9  - 24) 


3. 9. 2.6  Adaptive  Load-Step  (arc-Iengthl  Selection 

To  advance  the  solution  from  one  load-step  (n)  to  the  next  (n-fl),  it  is  also  necessary  to 
select  a new  arc-length  increment,  Ain+i.  Note  that  this  parameter,  which  represents  a 
distance  traversed  along  the  load- displacement  “curve”,  is  (by  definition)  always  positive,* 
but  may  grow  or  shrink  depending  on  solution  difficulty.  To  automate  the  process,  we  use 
the  following  simple,  but  fairly  robust,  heuristic  algorithm  suggested  by  Crisfield  (ref.  3.1): 


A^n+l 


Desired  number  of  iterations 
Actual  number  of  iterations 


X Aln 


(3.9  - 25) 


where  actual  refers  to  the  number  of  iterations  required  for  convergence  at  the  previous 
step  (n),  and  the  desired  number  of  iterations  is  user- specified  and  typically  around  4. 
This  causes  the  step-size  to  grow  or  shrink  in  direct  proportion  to  the  convergence  rate 
of  the  nonlinear  solution,  and  generally  leads  to  a nearly  constant  number  of  iterations 
(».e.,  computations)  per  step.  In  fact  the  number  of  load-steps  will  automatically  adjust 
according  to  the  curvature  of  the  load- displacement  curve,  with  more  steps  being  required 
around  turning  points  (high  curvature)  and  less  along  smooth  stretches  (low  curvature). 


* 


This  is  in  contrast  to  conventional  load-controlled  algorithms,  which  require  explicit  selection 
of  the  load  increment,  - a parameter  that  may  change  sign  at  limit  or  bifurcation  points. 


3.9-  8 


CSM  Testbed  Procedures  Manual 


5/22/90 


Solution  Procedures 


NL_STATIC_1 


Note  that  the  initial  value  of  the  arc-length  increment,  Afj,  must  be  specified  - at  least 
indirectly  — by  the  user.  However,  since  the  user  typically  has  no  physical  insight  about  the 
magnitude  of  Al\,  we  employ  the  arc-length  constraint  equation  3.9-10  to  compute  it  in 
terms  of  the  initial  load-factor,  AA]  - which  the  user  can  typically  estimate  based  on  some 
prior  linear  analysis.  The  expression  used  to  compute  the  initial  arc-length  increment  is 
thus 

A£i  = Ai  \\6diW  (3.9-26) 

which  was  derived  by  rewriting  equation  3.9-16b  as 

A£n+i  = AAn+i  ||6dn+i||  (3.9  — 27) 

setting  n = 0 and  noting  that 

AA!  = A,  -A0  = Aj  (3.9-28) 

The  “tangential”  displacement,  6dj,  in  equation  3.9-26  is  simply  the  linear  solution  ob- 
tained with  the  normalized  external  load  vector  as  right-hand-side,  i.e., 

Sdi  = K-1(0)  f'Zt  (3.9-29) 

3.9. 2. 7 Specified  Displacements 

The  presence  of  specified-displacement  loads  (in  addition  to  specified-force  loads)  af- 
fects the  above  algorithm  in  three  subtle  - but  important  - ways: 

i)  It  modifies  the  definition  of  the  residual  force  vector,  r,  since  the  internal  force 
vector,  f*nt,  becomes  a function  of  the  load-factor,  A. 

ii)  Due  to  the  above  dependence,  the  derivative  of  r with  respect  to  A gains  an  ad- 
ditional term,  which  in  turn  modifies  the  definition  of  the  tangential  displacement 
vector,  fd. 

iii)  The  specified  displacement  components  must  be  included  in  all  displacement  norms 
and  inner  products  appearing  in  the  arc-length  constraint  equation,  and  in  the 
computation  of  nonlinear  error  estimates. 

The  above  modifications  can  be  expressed  mathematically  as  follows.  First,  define  a spec- 
ified displacement  vector,  d*,  which  has  zeros  everywhere  except  in  the  components  that 
are  user-specified.  Further  assume  that  this  specified  displacement  vector  is  scaled  by  the 
same  load-factor,  A,  as  the  external  force  vector,  t.e., 

d'  = Ad'  (3.9-30) 


where  d is  a normalized  vector  containing  the  reference  (A  = 1)  values  of  specified  displace- 
ment. The  expression  for  the  residual  force  vector,  equation  3.9-4,  can  then  be  re-written 
as 

r(d,  A)  = Af"  - fin<(d,d*)  (3.9-31) 
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and  its  derivative  with  respect  to  A in  equation  3.9-7  becomes 


dr  -ext  df'nt  dd*  -ext  df'nt  -e 


= f - 


dd*  d\ 


= f - 


(3.9  - 32) 


Qfint 

~W 


(3.9  - 33) 


where  Ku*  is  the  partition  of  the  tangent  stiffness  matrix  that  couples  specified  displace- 
ment increments  to  unknown  force  increments,  t.e.,  the  extended  stiffness  matrix  may  be 
partitioned  as 

K*  = K"  (3.9-34) 


where  K““  is  the  active  block  of  the  stiffness  matrix,  t.e.,  in  the  present  terminology: 


K = K1 


(3.9  - 35) 


Thus,  the  new  load-derivative  of  the  residual  force  vector  may  be  expressed  as 


% - - K-d' 


(3.9  - 36) 


and  the  corresponding  tangential  displacement  vector  from  equation  3.9-llb  becomes: 


Sd  = K1  (T  ‘ -IT'd') 


(3.9  - 37) 


where  the  superposed  bar  is  defined  in  equation  3.9-9. 

Note  that  the  solution  indicated  in  equation  3.9-37  is  much  like  what  is  required  for  linear 
analysis  with  specified  displacements:  The  right-hand-side  is  modified  by  multiplying  a 
part  of  the  extended  stiffness  matrix  times  the  (normalized)  specified  displacements.  This 
is  in  contrast  to  the  solution  for  £d  in  equation  3.9-lla,  where  specified  displacements  are 
accounted  for  exclusively  through  their  nonlinear  dependence  in  the  residual  force  vector, 


3.9. 2.8  General  Loading  (e.q..  “Live*’  Loads') 


The  last  restriction  we  shall  lift  is  the  simple  form  of  the  external  force  vector  given  in 
equation  3.9-4a,  t.e.,  we  shall  replace: 


rxt  = Af 


(3.9  - 38) 


Af  (d) 


(3.9  - 39) 
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This  allows  for  the  kind  of  displacement- dependent  (or  “live”)  loading  that  arises  from 
hydrostatic,  or  follower,  forces.  The  residual  force  vector  then  becomes 

r(d,  A)  = Afe*‘(d)  - rnt(d,Ad')  (3.9-40) 

and  the  only  modifications  to  equations  3.9-7  are  that  i)  the  tangent  stiffness  matrix 
acquires  a load-stiffness  contribution,  i.e., 


dr 

dd 


j^geom  _j_ 


load\ 


where 


K 


load 


di 


ezt 


dd 


(3.9  - 41) 


(3.9  - 42) 


and  ii)  the  external- force  contribution  to  the  tangent  load  vector,  rtx,  is  no  longer  a con- 
stant, t.e., 

^ = TX\d)  - K“'(d)d‘  (3.9-43) 


Note  that  we  have  not  allowed  for  a general  external-load  history,  in  which  both  the 
magnitude  and  direction  of  the  external  force  vector  may  change  from  step  to  step,  e.y., 

{ezt  = (3.9-44) 

Nor  have  we  allowed  for  multiple  load-factors,  Aa , A&, . . . , which  can  arise  when  several  inde- 
pendent load  systems  are  acting  on  a structure.  Such  complications  require  straightfoward 
generalization  of  the  present  arc-length  algorithm,  and  will  be  considered  as  necessary  for 
future  applications. 


3.9. 2.9  Convergence  Criteria 

As  a measure  of  the  error  in  the  nonlinear  equilibrium  equations  (not  including  discretiza- 
tion errors),  we  use  an  energy  norm,  which  is  the  inner  product  of  the  residual  force  vector 
and  the  iterative  displacement-change  vector.  This  is  effective  for  two  reasons:  i)  it  involves 
only  a single  error  norm,  in  contrast  to  algorithms  that  check  displacement  and  residual 
errors  independently;  and  ii)  the  inner  product  of  force  and  displacement  introduces  a 
natural  scaling  of  different  types  of  generalized  freedoms  (for  example  rotational  freedoms 
versus  translational  freedoms)  — by  weighting  each  generalized  displacement  with  its  cor- 
responding (conjugate)  generalized  force.  Thus,  sensitivity  to  physical  units  and  choice  of 
independent  variables  is  minimized. 

Convergence  of  the  nonlinear  solution  process  at  a given  load-step,  n + 1,  is  checked  by 
evaluating  the  following  energy  error  norm  at  each  iteration,  i : 


||error|| 


(0 

n+l 


• Sd 


(0 

n+l 


(3.9  - 45) 
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and  comparing  it  with  some  user-specified  fraction  of  a reference  error  norm.  Thus,  con- 
vergence is  defined  as  satisfaction  of  the  condition: 

||error||^i  < tolerance  x ||error||£jf,  (3.9  — 46) 

where  tolerance  is  the  user-specified  fraction,  and  the  reference  error  is  defined  as: 

llerrorll"/,  = MAX(||error||£J„  ||error||;e/)  (3.9-47) 

Note  that  at  the  first  load-step,  ||error||J*^)  is  assumed  to  be  zero. 

The  above  convergence  criterion  can  be  very  sensitive  to  the  user-specified  error  tolerance. 
Typically,  a value  of  10-3  is  adequate,  but  for  some  problems  this  may  be  an  order  of 
magnitude  too  large  - or  even  too  small  ( i.e .,  causing  more  iterations  than  are  actually 
needed).  More  adaptive  and  robust  error  tolerances  are  a recommended  topic  for  future 
research. 


3.9.2.10  Large  Rotations 

In  problems  involving  rotational  freedoms,  e.g.,  with  beam  or  shell  elements,  the  following 
modification  to  equation  3.9- 15a  is  used  when  the  rotation  angles  become  large  (say  greater 
than  10  degrees).  First,  note  that  the  system  displacement  vector,  and  its  iterative  change, 
are  typically  partitioned  by  nodes,  i.e., 


fdi  ) 

d2 

*dl  1 

Sd2  1 

d = i 

1 dNnodes  ' 

» , $d  = i 

- ^dNnodes 

(3.9  - 48) 


where  Nnodes  is  the  total  number  of  nodes  in  the  problem.  At  nodes  with  both  translational 
and  rotational  freedoms  we  can  further  partition: 


<*-{£}•  (3-9_49) 

in  which 

= translation  at  node  A 

6ux  = iterative  change  in  translation  at  node  A 
Ta  = rotation  triad  at  node  A 

60a  = iterative  change  in  rotation  pseudo- vector  at  node  A 

Thus  the  total  displacement,  dx,  is  represented  by  the  combination  of  a nodal  translation, 
and  a nodal  triad  that  describes  the  orientation  of  a “rigid  body”  attached  to  the  node.  The 
iterative  change  in  displacement,  $dx,  is  represented  by  an  iterative  change  in  translation, 
and  an  iterative  change  in  a rotation  pseudo- vector.  The  latter  quantity  uniquely  describes 
iterative  changes  in  the  rotation  triad. 


3.9-  12 


CSM  Testbed  Procedures  Manual 


5/22/90 


Solution  Procedures 


NL.STATIC.1 


With  the  above  definitions,  the  modified  version  of  equation  3.9-I5a  at  an  individual  node 
may  be  written  as  follows.  For  the  translational  freedoms  we  simply  have: 

ua  = Ua  + £u_a  (3.9  - 50) 

whereas  for  the  rotational  freedoms  we  use: 

(3.9  - 51) 

where  exp(S0A)  is  the  exponential  of  SO  a,  which  is  an  orthogonal  (rotation)  matrix  whose 
rotation  angle  and  direction  correspond  to  the  magnitude  and  direction  of  the  pseudo- 
vector 60a-  The  following  explicit  expression  for  this  matrix  is  known  as  as  “Rodriguez’ 
formula”  (see,  e.g.,  ref.  3.2): 

exm  = I + ^0  + V-pH#  (3.9-52) 

where  © is  the  skew- symmetric  matrix  corresponding  to  the  pseudo- vector,  0,  i.e., 


T a = exp(60A)TA 


for  any  vector  h,  so  that 

© - 

and  6 is  the  magnitude  of  0 , i.e., 


©h  = 0 x h 


-03 

f 

c* 

i-i 

0 

0i 

-0i 

0 

ii 

£ 

11*1  = + % + »! 


0 = 


0 
0 3 

—01 


(3.9  - 53) 


(3.9  - 54) 


(3.9  - 55) 


where  0i(i  — 1, 2, 3)  are  Cartesian  components  of  0.  Note  that  the  pseudovector,  0 , behaves 
as  a true  vector  in  all  ways  except  for  vector  addition  - since  the  sum  of  two  arbitrary  large 
rotations  is  not  a vectorial  sum  (see  refs.  3.3or  3.4for  the  rules  of  rotation  pseudovector 
addition). 

The  rotation  update  formula  given  by  equation  3.9-19  need  only  be  performed  at  nodes 
with  rotational  freedoms.  It  may  also  be  used  to  perform  incremental  updates  as  well  as 
iterative  updates,  i.e., 

T^+1  = exp(A0A)  Ta  (3.9-56) 

The  above  relation  is  employed  in  the  computation  of  the  predictor  solutions  described  by 
equations  3.9-16  or  3.9-22.  For  the  extrapolated  predictor  (equation  3.9-22),  the  extrapo- 
lated rotation  triads  are  obtained  by:  i)  extrapolating  the  rotational  components  of  the 
displacement  vector  precisely  as  indicated  by  equation  3.9-22a;  ii)  computing  the  rotation 
increments  between  steps  n and  n 4- 1 by  subtracting  the  rotational  components  of  dn 
from  those  of  the  extrapolated  vector,  dn+i;  and  iii)  plugging  the  corresponding  rotation- 
increments  (AO a)  into  equation  3.9-56.  Note  that  while  the  rotation  components  of  the 
“total”  displacement  vectors,  d^  and  d^+1  are  meaningless  for  large  rotations,  the  differ- 
ence between  these  to  vectors  defines  a valid  incremental  rotation  pseudo- vector,  A 0A . 
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3.9.3  ALGORITHM 


General  Algorithm 

(1)  STEP  LOOP:  for  n = 2,  3,  4 . . . (step  = n+1) 

(1.1)  Extrapolate  Solution  for  Predictor 

call  EXTRAP  ( A^n+i>  Aln,  Aln_ i ► cn,cn_j,cn_ 2 ) 


A(1) 

An+1 


= Cn\n  + Cn_i An_j  -f  Cn_2 An_2 
— cndn  + ^n-ldn-1  + cn-2<ln-2 


Ad!1!,  = 


AX 


*n+ 1 

(1)  _ 
n+1  — 


- d. 


(t  a, 


— R(Ad^-fj)Tn) 


\<*> 

An+1 


An 


(1.2)  Solve  for  Tangential  Displacement  based  on  Predictor 


«d  = K^d^.) 


f + Ku*d 


1 


(1.3)  Form  Residual  based  on  Predictor 


,.<»>  _ 


_/ j(i)  \(i)  \ \ 

1 n+1  - rlan+l>An+ll  “ An+1*  — * V~n+1 


k0) 


v ext 


f‘"*(d2.) 


call  CHK.CONV  ( r^AdJ},,*,/  <<»,€„/) 

(2)  ITERATION  LOOP:  i = 1,  2,  . . . (iter  = i+1  = 2,  3,  . . . ) 
(2.1)  Solve  for  Basic  Iterative  Displacement  Change 


6d  = K-'fd*.1],)  r«, 


6X 


(2.2)  Solve  Linearized  arc-length  Constraint  Eqn  for  New  Load  Factor 

*d) 


A P - AdW , ■ Ada,  - 


2(Ad(<) 


n+1 


£d) 


A&.'1  = a- , + ex 


i(0 
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(2.3)  Update  Displacements 

Sd  = 6d  + SXSd 


d<‘+1)  - 
an+l  — 


dL'i. (T";;'  = R(«d)T^,) 


(«+i)  _ 


r»(») 


Ad 


(<+i) 

n+l 


= Ad! 


(*) 

n+l 


+ Sd 


(2.4)  Compute  New  Residual 


r 


(<+l) 

n+l 


r(d 


(i+i) 

n+l  > 


= A 


(i+l)5”‘ 
n+l  1 


fin‘(d 


(i+1) 

n+l 


) 


(2.5)  Check  Convergence 

call  CHK_CONV  ( r^Ud.e^e^ei,,,  numJiv  - 

e<i+1),  <CONVERGED>,  <DIVERGED>  ) 
if  ( <CONVERGED>  ) then 

num_iters_required  = iter 

A/  . ~ — \ f ( numJters-desired  \ 
n+  n+1  \ num  .iters  .required  ) 

n <—  n + 1 

go  to  (1)  STEP  LOOP 

elseif  ( <DIVERGED>  .or.  (iter  > maxJters)  ) then 
if  ( numjcuts  < max_cuts  ) then 

Afn+i  = A£n+i/2 
num.cuts  = num_cuts  + 1 
go  to  (1.1) 

else 

STOP 

endif 

else 

t *—  i + 1 

go  to  (2)  ITER  LOOP 

endif 
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Starting  Procedure:  Step  1 (n=0) 

Replace  Algorithm  Steps  (1.1)-(1.2)  by: 

d(,0)  = 0 

Sd  = K_1(dj0))  [fMt  + KMd*] 

A*1*  = A,tar(  (user  specified) 

AA(/>  = A^ 

A/,  = AA^UJdH 
Ad*0  = AA^M 

d\l)  - Adj‘> 

( Also,  form  K(d(/))  before  next  solve.  ) 

Starting  Procedure:  Step  2 (n=l) 

Replace  Algorithm  Steps  (1-1 )— ( 1-2)  by: 

d(20)  - d, 

£d  - K_1(d(20))  [?"*  + K**d'] 

AA2i}  = A*2/||M|| 

A(2j)  = Aj  + AA21} 

Ad2!)  = AX^Sd 

d(2J)  = d,  + Ad2J)  (T(21}  = R(Ad2^  Ti) 
( But  don’t  reform  K(d(jJ))  until  step  3.  ) 
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CHK.CONV:  Procedure  to  Check  Convergence 

Input:  r,  £d,  e^,  er«/,  Ttoi , numjdiv,  iter 

Output:  e’+1',  numjdiv,  <CONVERGED>,  <DIVERGED> 

(1)  Compute  Energy  Error  Norm:  e(‘+1>  = |r  • £d| 

(2)  Normalize: 

(3)  Check  Convergence  / Divergence: 

if  ( e<*+1)  < Ttoi  ) then 

<CONVERGED>  = TRUE 


else 


if  ( e<<+1>  > ?<<>  ) then 

numjdiv  = num_div  + 1 
if  ( numjdiv  > 1 ) then 

<DIVERGED>  = TRUE 

endif 


endif 


endif 


Modification  for  Iteration  = 1 (i=0): 


(1.5)  if  ( iter  = 1 ) then 

if  ( e*1)  > eref  ) then 


Cre/ 


= 


endif 


endif 
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EXTIIAP:  Procedure  to  Compute  Quadratic  Extrapolation  Coefficients 

Input:  Ain,  A£n..i 

Output:  c„,  cn_ i,  cn_ 2 


£n-l  — Ain  - 1 

— ^n  — 1 "t“  A in 

^n+1  = + A^n  t.i 

A iu,t  -----  (nil  — (n-  1 

(^n+l)(A^(ot) 

C”  “ (*„)(A*») 

C"“1  ~ (/„_,)(  Atn) 

(A(n  i l){A(tot) 

CU'2  = (*»-l)(*„) 
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3.9.4  PROCEDURE  USAGE 

Procedure  NL_STATIC_1  may  be  invoked  by  the  *call  directive: 


*call  NL_STATIC_1  ( argl  * vail;  arg2  = val2;  ...) 


where  argi  are  argument  names  and  valt  are  the  corresponding  values  you  wish  to  give 
them.  The  following  are  valid  arguments  for  procedure  NL.STATIC.1;  note  that  those 
without  default  values  are  mandatory,  while  the  others  are  optional. 


Argument 

BEG_L0AD 

BEG-STEP 

MAX_L0AD 

MIN-LOAD 

MAX-STEPS 

Default  Value 

Meaning 

Starting  load  factor  (>0.) 
Starting  step  number  (>0) 
Upper-bound  on  load  factor 
Lower-bound  on  load  factor 
Maximum  steps  to  compute 

COROTATION 

1 

Corot ational  Update  Option 

DES.ITERS 

4 

Number  of  iterations  per  step  desired 

EXTRAPOLATE 

<true> 

Perform  quadratic  extrapolation  of  solution 

FAC-STEPS 

i 

Steps_per_refactoring 

MAX_ITERS 

9 

Maximum  iterations  per  step 

MAX-CUTS 

3 

Maximum  number  of  successive  step  cuts 

NL-GEOM 

2 

Geometric  Nonlinearity  Level  (1  or  2) 

NOMINAL-DB 

NOMINAL. GAL 

Results  database  file 

NOMINAL-DS 

RESPONSE. HISTORY 

Results  dataset 

N-SELECT 

0 

Number  of  nodes  for  selected  disp.  output 

PATH-SCALE 

1. 

arc-length  scale  factor  for  restarts 

SEL-NODES 

0 

List  of  nodes  for  selected  output 

SEL-DOFS 

0 

Corresponding  list  of  nodal  freedoms  (1-6) 

TOL-E 

l.E-3 

Relative  error  tolerance  in  energy  norm 

In  the  above  definitions,  the  term  step  refers  to  a load  step.  The  total  response  is  auto- 
matically subdivided  into  load  steps,  with  the  starting  load  factor  prescribed  by  the  user 
- using  BEG.L0AD.  Subsequent  load  step  sizes  are  automatically  selected  by  the  algorithm, 
using  an  arc-length  constraint,  as  described  in  the  theory  section. 
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Table  3.0-1  Datasets  Input/Output  by  procedure  NLJ5TATIC-1 


Dataset 

Description 

Lib 

Input 

<ES_NAME>.EFIL  .O.nnod 

Element  Computational  Data 

n 

V 

ES.SUMMARY  .O.nnod 

ES  Processor  Status 

D 

V 

DEF.<ES_NAME>.  O.nnod 

Element  Defn.  (Connectivity) 

B 

V 

DIR.  <ES_NAME>..  O.nnod 

Element  EFIL  Directory 

B 

V 

INC.DISP 

System  Displacement  Vector 

B 

s/ 

INT.FORC.step 

Nodal  Rotation  Pseudovectors 

a 

V 

JDFl.BTAB.1.8 

Model  Summary 

B 

V 

JLOC.BTAB.2.5 

Nodal  Coordinates 

B 

V 

PROP.BTAB.* 

Material/Section  Properties 

V 

QJJT.BTAB.2.9 

Nodal  Transformations 

V 

TOT.DISP.step 

System  Displacement  Vector 

B 

y/ 

TOT. ROTN. step 

System  Force  Vector 

l 

y/ 

where  step  is  the  load-step  number,  and  ranges  consecutively  from  1 to  the  total  number 
of  steps  computed. 
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Table  3.9-2  Sub-Procedures  Invoked  by  procedure  NL.STATIC-1 

Procedure 

Type 

Function 

NLJSTATIC.l 

Interns! 

Main  procedure 

CHKCONV 

Internal 

Check  convergence 

DEFNS 

Internal 

Defines  recursive  macrosymbols 

ES 

External 

Element  utility  procedure 

EXTRAP 

Internal 

Quadratic  extrapolation  for  next  load  step 

INITIAL 

Internal 

Initialize  displacements  and  rotations 

POSTSTEP 

Internal 

Print  load  step  summary 

POSTRESS 

Internal 

Archive  load  step  data 

RESIDUAL 

Internal 

Forms  residual-force  vector 

SOLVE 

Internal 

Solves  linear  equation  systems 

STIFFNESS 

Internal 

Forms  and  factors  stiffness  matrix 

TANDIS 

Internal 

Solves  for  tangential  displacements 

3.9.5  ARGUMENT  DESCRIPTION 
3.9.5. 1 BEG-LOAD 

Starting  load  factor  (Aj ) for  the  nonlinear  analysis.  For  applied  force  loading,  this  factor 
is  multiplied  by  the  reference  applied  force  vector  to  obtain  the  starting  load  vector,  »'.e., 

fT*  = Ai  Vxt 

where  f*x<  is  the  reference  applied  force  vector  stored  in  dataset  APPL.F0RC.1.  For 
applied  displacement  loading,  the  starting  load  factor  is  applied  to  the  reference  applied 
displacement  vector,  which  is  then  used  to  compute  the  initial  internal  force  vector,  i.e., 

fintO)  = 

where  d"*  is  the  reference  applied  displacement  vector  stored  in  dataset  APPL.MOTI.1. 
Note  that  this  argument  is  irrelevant  for  re-start  runs  (i.e.,  BEG_STEP  > 1). 
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3.0.  5. 2 BEG-STEP 

This  argument  defines  the  number  of  the  first  step  to  be  computed  in  a given  nonlinear 
analysis  interval.  It  is  important  primarily  for  analysis  re-starts.  Initially,  BEG-STEP  should 
be  set  to  1.  To  continue  an  analysis  in  a subsequent  run,  after  having  computed  and  saved 
“n”  steps  in  the  previous  run,  one  would  typically  set  BEG.STEP  equal  to  “n+1”.  For 
example,  if  the  10th  step  was  successfully  completed  in  the  first  run,  then  it  could  be 
continued  in  a second  run  by  setting  BEG-STEP  = 11.  However,  it  is  not  necessary  for 
BEG-STEP  to  be  larger  than  any  previously  computed  step.  That  is,  you  may  re-compute  a 
sequence  of  steps  by  setting  BEG-STEP  to  the  number  of  the  first  step  to  be  re-computed. 
The  procedure  will  automatically  use  those  steps  which  immediately  precede  BEG_STEP 
(e.y.,  BEG-STEP-l,  BEG-STEP-2  and  BEG-STEP-3)  to  smoothly  effect  the  restart. 

3.0.  5.3  COROTATION 

Corotational  update  switch  for  large-rotation  problems  (default:  <true>).  This  switch 
should  be  set  to  <true>  when  the  model  involves  finite  elements  that  require  corotation 
for  geometric  nonlinearity.  This  is  true  of  most  beam  and  shell  elements,  and  may  be 
true  for  some  solid  (3D)  elements  used  to  model  shell  structures.  Consult  the  appropriate 
element  processor  (ESi)  section  in  the  CSM  Testbed  User’s  Manual  (see  ref.  3.9-5)  for 
specific  guidelines. 

3.9. 5.4  DEBUG 

Procedure  debug  switch  (default:  <f  alse>).  This  switch  should  only  be  turned  on  to 
obtain  additional  diagnostic  printout  for  procedure  debugging. 

3.9. 5. 5 DES-ITERS 

Desired  number  of  iterations  allowed  for  convergence  at  a given  load  step  (default=4). 
This  parameter  is  used  to  adaptively  adjust  the  arc-length  increment  from  one  load  step 
to  the  next,  by  comparing  DES-ITERS  with  the  actual  number  of  iterations  required  for 
convergence  at  the  last  step. 

3.9. 5.6  EXTRAPOLATE 

Solution  extrapolation  switch  (default:  <true>).  Extrapolation  here  refers  to  a technique 
for  predicting  the  displacement  vector  and  load  factor  at  the  beginning  of  a new  load  step, 
by  fitting  a quadratic  curve  through  the  converged  solutions  at  the  three  previous  load 
steps.  It  has  been  found  to  be  a very  effective  strategy  for  accelerating  traversal  of  the 
load-displacement  “curve”,  *.e.,  far  fewer  load  steps  are  usually  required  with  extrapolation 
turned  on,  than  with  it  turned  off.  One  exception  is  near  very  sharp  turns  in  the  load- 
displacement  curve,  where  extrapolation  may  be  too  smooth  to  follow  the  curve,  and  may 
have  to  be  temporarily  suppressed.  (Note:  EXTRAPOLATE  * <false>  option  has  not  been 
fully  tested.) 
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3.9.5. 7 FAC-STEPS 

Number  of  load  steps  between  updating  (formation  and  re-factoring)  of  the  stiffness  matrix 
default  = 1).  FAC-STEPS  = n implies  that  re-factoring  will  be  performed  every  n steps, 
starting  with  the  first  step  of  the  analysis  interval  (BEG_STEP).  Best  results  are  often  ob- 
tained by  allowing  the  procedure  to  re-factor  at  the  beginning  of  each  load  step  (FAC_STEPS 
= 1). 


3.9. 5. 8 MAX-CUTS 

Maximum  number  of  step  cuts  permitted  during  the  current  nonlinear  analysis  interval 
(default=3).  A step  cut  refers  to  a halving  of  the  arc-length  increment  used  to  advance 
the  solution  from  one  step  to  the  next.  Step  cuts  are  performed  only  if  the  maximum 
number  of  iterations  are  exceeded  without  converging  at  a given  load  step.  Note  that  the 
relationship  between  the  increment  in  “arc-length”  and  the  increment  in  the  load-factor, 
A,  is  computed  internally  by  the  procedure. 

5.9.5.9  MAX-ITERS 

Maximum  number  of  iterations  allowed  for  convergence  at  a given  load  step.  This  param- 
eter is  used  to  terminate  the  iteration  process  at  a given  load  level.  If  convergence  hasn’t 
been  obtained  after  MAX-ITERS  iterations,  the  load  (*.e.,  arc-length)  increment  is  cut  in 
half  and  the  step  is  repeated  - until  either  convergence  has  been  obtained  or  MAX-CUTS  has 
been  exceeded. 

3.9.5.10  MAX-LOAD 

Maximum  load  factor.  This  sets  an  upper  limit  on  the  load  level,  and  thus  provides  a 
convenient  way  of  terminating  the  arc-length  controlled  solution  algorithm.  Since  the  load 
factor  is  actually  an  unknown  in  procedure  NL_STATIC_1,  there  is  no  way  of  knowing  a- 
priori  how  many  load  steps  will  be  required  to  attain  a particular  load  level.  The  nonlinear 
analysis  is  terminated  when  either  MAX JLOAD,  MIN-LOAD,  MAX-STEPS  or  MAX-CUTS  is  exceeded 
- whichever  comes  first. 

3.9.5.11  MAX-STEPS 

Maximum  number  of  load  steps  to  compute  in  the  current  nonlinear  analysis  run.  This 
provides  an  implicit  limit  on  analysis  run-time.  Since  the  load  factor  is  actually  an  unknown 
in  procedure  NL-STATIC.l  (controlled  by  the  arc-length  constraint),  there  is  no  way  of 
knowing  a-priori  how  many  load  steps  will  be  required  to  attain  a particular  load  level. 
The  nonlinear  analysis  is  thus  terminated  whenever  MAX-STEPS,  MIN-LOAD,  MAX-LOAD  or 
MAX-CUTS  is  exceeded  - whichever  comes  first. 

3.9.5.12  MIN-LOAD 

Minimum  load  factor.  This  sets  a lower  limit  on  the  load  level,  and  thus  provides  a 
convenient  way  of  terminating  the  arc-length  controlled  solution  algorithm.  Since  the  load 
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factor  is  actually  an  unknown  in  procedure  NL_STATIC_1,  there  is  no  way  of  knowing  a- 
priori  how  many  load  steps  will  be  required  to  attain  a particular  load  level.  The  nonlinear 
analysis  is  terminated  when  either  MIN-LOAD,  MAX_L0AD,  MAX-STEPS  or  MAX-CUTS  is  exceeded 
- whichever  comes  first. 

3.0. 5.13  HL-GEOM 

Geometric  nonlinearity  level:  0,  1,  or  2 (default  =2).  A value  of  zero  means  that  the 
problem  is  geometrically  linear;  a value  of  one  means  that  the  geometric  nonlinearity  will 
be  handled  globally  (».e.,  using  corotational  updates  only);  and  a value  of  two  means  that 
the  nonlinear  element  strain-displacement  relations  will  be  used  in  addition  to  any  global 
treatment  of  geometric  nonlinearity.  If  COROTATION  = <trne>,  options  1 and  2 refer  to 
first-order  and  second-order  corotation,  respectively.  The  latter  option  can  be  significantly 
more  accurate  than  the  former  for  a given  finite  element  model  - depending  on  which 
element  types  are  involved. 

3.0. 5.14  NOMINAL-DB 

Name  of  database  (GAL  file)  where  a step-wise  history  of  important  solution  parameters 
and  selected  response  variables  is  to  be  stored  (default  = NOMINAL. GAL). 

3.0. 5.15  NOMINAL-DS 

Name  of  dataset,  within  database  defined  by  argument  NOMINAL-DB,  where  a step-wise 
history  of  important  solution  parameters  and  selected  response  variables  is  to  be  stored 
(default  = RESPONSE. HISTORY).  See  the  CSM  Testbed  Dataset  Manual  (ref.  3.9-6),  under 
dataset  RESPONSE. HISTORY,  for  a description  of  the  individual  data  records  stored  in  this 
dataset. 

3.0. 5.16  N-SELECT 

Number  of  user-selected  displacement  components  to  be  saved  in  the  dataset  specified 
by  argument  NOMINAL_DS  (default  =0).  Values  for  these  displacement  components,  the 
locations  and  directions  of  which  are  specified  by  arguments  SEL-NODES  and  SEL-DOFS, 
respectively,  axe  stored  at  every  load-step. 

3.0. 5.17  PATH-SCALE 

This  floating  point  number  represents  a scale  factor  to  be  applied  to  the  incremental 
arclength  (or  pathlength)  used  for  the  first  step  of  an  analysis  re-start  run  (default  =1.0). 
If  the  default  (1.0)  is  used,  the  arc-length  increment  from  the  previous  step  BEG-STEP-l 
will  be  used  for  the  first  step  BEG-STEP.  Note  that  this  may  lead  to  a different  load-step 
size  than  if  the  analysis  had  continued  to  step  BEG-STEP  without  a re-start.  To  eliminate 
this  difference,  the  user  can  set: 

[PATH-SCALE]  = [DES.ITERS]  / act_it«rs 

where  “act Jters”  is  the  actual  number  of  iterations  required  for  convergence  at  step 
[BEG_STEP] -1. 


3.9-  24 


CSM  Testbed  Procedures  Manual 


5/22/90 


Solution  Procedures 


NL.STATIC.1 


3.9.5.18  SEL-DOFS 

List  of  nodal  degrees-of- freedom  at  which  displacement  histories  are  to  be  saved  in  dataset 
NOMINALJDS  (default  =1.0).  There  should  be  N_S ELECT  numbers  in  the  list,  in  correspon- 
dence with  the  node  numbers  specified  by  argument  SELJIODES.  Values  of  each  number 
in  the  list  must  range  between  1 and  6,  in  correspondence  to  the  nodal  degree-of-freedom 
sequence  ( e.g .,  u,v,w,6x,0v,0z)  specified  by  the  START  command  of  processor  TAB. 

3.9.5.19  SELJIODES 

List  of  node  numbers  at  which  displacement  histories  are  to  be  saved  in  dataset  NOMINAL  J)S 
(default  =0).  There  should  be  N_SELECT  numbers  in  the  list,  and  node  numbers  can 
be  repeated  if  more  than  one  nodal  degree-of-freedom  is  to  be  saved  at  a node.  The 
corresponding  nodal  degree-of-freedom  for  each  entry  is  specified  by  argument  SEL  J)0FS. 

3.9.5.20  T0LJ5 

Error  tolerance  used  to  establish  convergence  of  the  nonlinear  equilibrium  iteration  proce- 
dure at  each  load  step  (default  =l.e-3).  The  iteration  loop  at  a given  step  is  terminated 
whenever  the  following  condition  is  met: 

e < [T0L_E] 


where 


e = 


I r(»>  . £d(0 
r^1)  • £d^ 


is  the  relative  energy  error  norm,  r is  the  residual  force  vector,  £d  is  the  iterative  displace- 
ment change,  and  i is  the  iteration  counter. 


5/22/90 


CSM  Testbed  Procedures  Manual 


3.9-  25 


NL.STATIC.1 


Solution  Procedures 


3.9.0  PROCEDURE  FLOWCHART 


NL_STABIL_1 

DEFNS 

INITIAL 

ES 

EXTRAP 

STIFFNESS 

TANDIS 

SOLVE 

RESIDUAL 

ES 

CHKCONV 

POSTSTEP 

POSTRESS 


(main  procedure) 

(define  recursive  macrosymbols) 

(initial  displacements  and  rotations) 
(initialize  element  data) 

(quadratic  extrapolation  for  next  load  step) 
(form  and  form  stiffness  matrix) 

(solve  for  tangential  displacements) 

(solve  linear  system  of  equations) 

(form  residual-force  vector) 

(calculate  residual) 

(check  convergence) 

(print  load  step  summary) 

(archive  load  step  data) 
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3.0. 7  LIMITATIONS 

3.9. 7.1  Number  of  Database  Libraries 

All  analysis  (computational)  data  is  assumed  to  be  resident  on  a single  database  library 
(i.e.,  file),  and  that  file  is  expected  to  be  attached  to  logical  device  index  1 before  calling 
procedure  NL-STATIC.l.  Additionally,  important  analysis  statistics  and  re-start  parame- 
ters, as  well  as  selected  post-processing  data,  will  be  deposited  in  a separate  data  library, 
which  is  automatically  opened  by  procedure  NL_STATIC_1  on  logical  device  index  3.  The 
name  of  this  secondary  library  is  user-specified  using  procedure  argument  NOMINAL-DB, 
which  has  the  default  setting:  H0HINAL_DB  * NOMINAL. GAL. 

3.0.  7.2  Element  Types 

Only  shell  elements  have  been  tested  thus  far  with  procedure  NL_STATIC_1.  While  the 
procedure  is  potentially  compatible  with  beam  and  solid  elements  too,  minor  modifications 
to  the  generic  element  processor  may  be  required  to  handle  geometric  nonlinearity  for  these 
elements. 


3.0.  7.3  Number  of  Load /Constraint  Systems 

Only  one  set  of  loads  and  constraints  is  accommodated  by  procedure  NL_STATIC_1.  Fur- 
thermore, they  must  be  referred  to  as  load  set  1 and  constraint  set  1 in  the  database. 

3.0.  7.4  Specified  Rotations 

Specified  (non-zero)  rotational  freedoms  are  currently  not  implemented  in  procedure 
NL-STATIC.l  - unless  rotation  angles  remain  moderately  small  (i.e.,  less  than  10  degrees). 
For  larger  rotations,  the  specification  of  rotation  components  constitutes  a nonlinear  con- 
straint, which  must  be  translated  into  the  motion  of  nodal  rotation  triads,  and  requires 
a modification  to  the  linearized  equilibrium  equations.  This  capability  is  planned  for  a 

fii  + ii vrAfoiAti  rvf  VT  QTiTTf!  i 

1UVU1V  V Wl  DiUli  VI  V/WVL  U1  V MAJ.W  A A A dbV.A* 

3.0.  7.5  Material  Nonlinearity 

Only  geometric  nonlinearity  is  accounted  for  by  procedure  NL_STATIC_1.  However,  this  lim- 
itation is  really  due  to  current  limitations  within  the  generic  element  processor;  the  global 
nonlinear  solution  algorithm  doesn’t  particularly  care  about  the  source  of  the  nonlinearity, 
as  long  as  it  is  properly  represented  by  the  tangent  stiffness  matrix  and  the  residual  force 
vector. 


3.0. 7.6  Re-Starting  from  Step  1 

It  is  currently  not  permitted  to  re-start  the  analysis  from  step  1 (i.e.,  re-run  the  problem 
from  the  beginning)  unless  you  either:  i)  delete  the  database  and  recreate  the  model,  or  ii) 
♦enable  the  original  APPL.MOTI  and  APPL.FORC  datasets.  The  reason  for  this  is  that 
the  original  APPL.MOTI  and  APPL.FORC  datasets  are  copied  into  new  datasets  - and 
marked  for  deletion  — by  procedure  NL-STATIC.l  whenever  BEG-STEP  = 1.  This  limitation 
will  be  removed  in  the  next  version  of  NL-STATIC.l . 
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3.9. 7. 7 EXTRAPOLATE  Must  be  Turned  On 

Extrapolation  is  the  only  form  of  load/displacement  step  prediction  that  has  been  thor- 
oughly tested.  Without  extrapolation,  procedure  NL_STATIC_1  is  supposed  to  use  the  arc- 
length  constraint  equation  to  generate  a predictor  solution  (see  theory  section),  and  use 
information  regarding  the  sign  of  the  stiffness  determinant  to  determine  the  load  direction 
(increasing  or  decreasing)  between  one  step  and  the  next.  However,  the  no-extrapolation 
option  has  not  yet  been  quality  assured.  Note  that  the  extrapolation  option  is  the  recom- 
mended approach  anyway. 

3. 9. 7.8  True-Newton  Iteration 

Only  modified  Newton/Raphson  iteration  is  provided  by  the  current  version  of  procedure 
NL_STATIC_1.  This  means  that  the  stiffness  matrix  is  re-formed  and  re-factored  only  at  the 
beginning  (first  iteration)  of  every  FAC_STEPS  load  steps  (where  FAC.STEPS  = 1 by  default). 
In  the  next  version,  we  plan  to  implement  the  option  for  true  Newton/Raphson  iteration, 
in  which  the  stiffness  matrix  can  be  updated  at  each  iteration  of  selected  load  steps.  This 
option  can  be  useful  for  problems  with  limit  points  that  are  nearly  as  sharp  as  bifurcation 
points. 

3.9. 7.9  Constant  Load-Increments 

Currently,  all  load  increments  (except  the  first  one)  are  computed  automatically  by  proce- 
dure NL_STATIC_1,  using  the  arc-length  constraint  equation.  Therefore,  it  is  not  possible 
for  the  user  to  fix  the  load  increment,  as  is  done  in  conventional  load-controlled  algorithms. 
Since  this  option  may  be  useful  for  benchmarking  (and  research)  purposes,  we  plan  to  in- 
clude it  in  a future  version  of  the  procedure,  wherein  the  arc-length  constraint  equation 
will  be  selectively  bypassed. 

3.9.7.10  Singularities  due  to  Limit  Points  and  Bifurcations 

Procedure  NL_STATIC_1  cannot  handle  singularities  in  the  stiffness  matrix  that  arise  when 
the  load-stepping  algorithm  lands  too  close  to  a limit  point,  or  attempts  to  traverse  a 
bifurcation  point.  (Note:  Singularities  due  to  limit  points  are  overcome  by  procedure 
NL_STATIC_2 . ) 

3.9.8  ERROR  MESSAGES  AND  WARNINGS 

3.9. 8.1  "Won-Convergence  at  Step  n.  Revise  Strategy." 

This  message  means  that  the  maximum  number  of  nonlinear  iterations  (MAX-ITERS)  has 
been  exhausted,  as  well  as  the  maximum  number  of  step  cuts  (MAX-CUTS),  and  convergence 
still  hasn’t  been  obtained  at  step  n.  A possible  cure  is  to  re-start  the  analysis  from  several 
steps  back,  and  decrease  the  arc-length  increment  at  that  point  (using  the  PATH-SCALE 
argument).  However,  just  increasing  MAX-ITERS  or  MAX-CUTS,  or  even  TOL-E,  may  also 
solve  the  problem.  In  other  words,  re-think  the  definition  of  all  solution  parameters  based 
on  the  observed  behavior  of  the  solution  algorithm  just  prior  to  the  break-down. 
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3.0.8. 2 "Divergence  at  Step  n.  Revise  Strategy. 11 

This  message  has  similar  implications  to  the  previous  message,  but  it  occurs  when  the 
error  grows  instead  of  decreases  during  two  successive  nonlinear  iterations.  The  difference 
between  divergence  and  non-convergence  is  that  divergence  cannot  be  cured  by  increasing 
MAI.ITERS;  and  probably  should  not  be  “cured”  by  increasing  T0L_E.  It  generally  means 
that  the  step-size  is  too  big  - or  that  the  error  tolerance  (TOLJE)  has  been  too  big  all 
along,  so  that  changes  are  occurring  suddenly  that  should  have  been  detected  by  the 
solution  algorithm  at  earlier  load  steps.  Thus,  you  might  try  re-starting  from  an  earlier 
step,  reducing  PATH_INC,  and  possibly  reducing  T0L_E  as  well. 


3. 0.8.3  "Specified  Displacements  are  Identically  Zero" 

This  is  not  necessarily  an  abortive  error.  As  long  as  either  nonzero  specified  displacements 
or  specified  forces  are  defined,  the  solution  can  proceed  — in  which  case  the  message  should 
be  taken  merely  as  a warning. 


3. 0.8. 4 "Specified  Forces  are  Identically  Zero" 

This  is  not  necessarily  an  abortive  error.  As  long  as  either  nonzero  specified  displacements 
or  specified  forces  are  defined,  the  solution  can  proceed  — in  which  case  the  message  should 
be  taken  merely  as  a warning. 


3.0.0  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  NL_STATIC_1  may  be  used  by  preceding  the  procedure  name  by  the  ♦call  di- 
rective. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any 
or  all  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦call  NL_STATIC_1  ( — 


beg.step  *1 
max_steps=l 
max_iters=9 
des_iters=4 
fac_steps=l 
max _ cuts =3 
tol_e=l .E-3 
beg. load 
max.load 
min. load 
path.scalesi 

extrapolate=<true> 
line. s ear ch=l . ; — 
debug=<FALSE> 
NL.GEOM  = 2 
CORO TATI 0N=1 
Nominal  DB  = NOMINAL 


Starting  step  number  (>0) 
Maximum  steps  to  compute 
Maximum  iterations  per  step 
Number  of  iterations  desired 
Steps.per.refactoring 
Maximum  number  of  step  cuts 
Energy  error  tolerance 
Starting  load  factor  (>0.) 
Upper.bound  on  load  factor 
Lower.bound  on  load  factor 
Path.inc  scl.f actor  (restart) 


Nominal.DS 
N_ SELECT  ; 


Initial  line-search  parameter 
Debug.print  switch 
Geom.  Nonlin.  Level  (l|2) 
Corotational  Flag  (leave  on!!) 
GAL  ; — . Selected  Output 


= RESPONSE. HISTORY  ; ■ 
SEL_N0DES;  SEL.DOFS  ) 
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3.0.0. 1 Starting  an  Analysis 

To  begin  a nonlinear  static  analysis  with  procedure  NL_STATIC_1,  it  is  only  necessary  that 
the  finite  element  model  be  defined.  This  does  not  require  pre-formation  of  element  stiffness 
matrices,  node  renumbering  for  optimal  factorization  time,  or  any  form  of  linear  analysis 
(unless  initial  geometric  imperfections  are  based  on  linear  displacement  modes).  Only 
nodal  coordinates/transformations,  material  properties  and  element  connectivity  are  pre- 
requisite to  nonlinear  analysis.  To  invoke  procedure  NL_STATIC_1,  only  those  arguments 
that  don’t  have  default  values  (see  procedure  usage  section)  need  be  specified. 

For  example,  suppose  you  wanted  to  start  an  analysis  with  an  initial  load-factor  of  .1,  a 
maximum  load-factor  of  1.,  a minimum  load-factor  of  0.,  and  compute  no  more  than  20 
load-steps.  You  could  then  invoke  the  procedure  as  follows: 


♦call  NL_STATIC_1  ( BEG-STEP  * 1 ; MAX-STEPS  = 20  ; — 

BEG.L0AD  = .1  ; MAX-LOAD  = 1.  ; MIN-L0AD  = 0.  ) 


Keep  in  mind  that  the  number  of  load-steps  actually  performed  during  the  above  run 
will  depend  on  the  number  of  adaptively-sized  arc-length  increments  needed  to  attain  the 
maximum  load  level.  Since  it  may  be  difficult  to  estimate  this  in  advance,  you  may  want 
to  start  with  only  a few  load-steps  (e.g.,  set  MAX-STEPS  = 3)  to  get  some  experience,  and 
later  re-start  the  analysis  with  more  steps  allowed. 

3.0.9. 2 Re-Starting  (or  Continuing!  an  Analysis 

To  re-start  an  analysis  from  a previously  computed,  converged  solution,  you  need  only 
specify  the  first  step  to  compute  as  argument  BEG-STEP.  If  the  EXTRAPOLATE  argument  is 
activated  (which  is  the  default),  the  three  solution  steps  immediately  preceding  the  one 
you  wish  to  compute  must  be  resident  on  the  database.  If  the  EXTRAPOLATE  argument  is 
turned  off,  only  one  preceeding  solution  step  is  required.  Thus,  to  continue  an  analysis 
that  has  already  produced  ten  load  steps,  you  could  issue  the  call: 


♦call  NL_STATIC_1  (BEG-STEP  = 11;  MAX-STEPS  = 100  ; — 

MAX-LOAD  * 1.  ; MIN-L0AD  * 0.  ) 


Note  that  the  argument  BEG-L0AD  is  not  necessary  for  a continuation  (or  re-start)  run; 
the  new  load  level  is  automatically  computed  using  the  preceeding  value  of  the  arc-length 
increment.  However,  you  can  modify  the  new  increment,  by  using  the  PATH-SCALE  argu- 
ment, which  is  a scale  factor  applied  to  the  previous  arc-length  increment  to  generate  the 
new  increment.  The  default  value  of  PATH-SCALE  is  1.0. 
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Furthermore,  on  analysis  continuations/restarts,  you  are  free  to  modify  any  of  the  other 
solution  parameters  (t.e.,  procedure  arguments).  For  example,  you  may  want  to  increase 
MAX-ITERS,  reduce  T0L_E,  or  even  change  DES.ITERS.  The  default  values  for  these  solu- 
tion parameters  are  not  suitable  for  all  problems;  they  are  useful  primarily  for  gaining 
experience  by  trial  and  error. 

3.9.10  PROCEDURE  LISTING 


. =DECK  ML. 
♦procedure 


STATIC.l 

NL_STATIC_1  ( — 


beg_step  =1  ; — . Starting  s 

max_steps=l  ; — . Maximum  st 

max_iters=9  ; — . Maximum  it 

des_iters=4  ; — . Number  of 

fac_8teps=l  ; — . Steps_per_ 

max _ cuts =3  ; — . Maximum  nu 

tol_e=l . E-3  ; — . Energy  err 

beg.load  ; — . Starting  1 

max _ load  • ; — . Upper_boun 

min.load  ; — . Loser.boun 

path_scale=l . ; — . Path.inc  s 
extrapolate=<true>  ; — 
line_search=l. ; — . Initial  li 
debug=<FALSE>;  — . Debug.prin 
NL.GEOM  =2  ; — . Geom.  Nonl 

COROTATION- 1 ; — . Corotation 
Nominal.DB  = NOMINAL. GAL  ; — 
Nominal.DS  = RESPONSE. HISTORY 
N.SELECT  ; SEL.NODES;  SEL.DOFS 


Starting  step  number  (>0) 
Maximum  steps  to  compute 
Maximum  iterations  per  step 
Number  of  iterations  desired 
St  eps .per.ref act oring 
Maximum  number  of  step  cuts 
Energy  error  tolerance 
Starting  load  factor  (>0.) 
Upper.bound  on  load  factor 
Lover.bound  on  load  factor 
Path.inc  scl.factor  (restart) 

» 

Initial  line-search  parameter 
Debug.print  switch 
Geom.  Nonlin.  Level  (1 | 2) 
Corotational  Flag  (leave  on!!) 
1..GAL  ; — . Selected  Output 


NL.STATIC.l 

CSM  Testbed  Procedure  for  Nonlinear  Statics: 

o Corotational  Newton/Raphson  algorithm 
o Linearized  Crisfield/Riks  arc-length  control 
o Applied  forces  and/or  displacements 

Authors:  G.M.  Stanley  and  C.C.  Rankin 
Version:  MAR-03- 1988 
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3.10  Procedure  NL_STATIC_2 

3.10.1  GENERAL  DESCRIPTION 

NL_STATIC_2  is  a modification  to  NL_STATIC_1  Riks  arclength  strategy  that  allows  solu- 
tion of  a limit  point  problem  in  the  immediate  neighborhood  of  a critical  point.  Developed 
and  written  by  C.  C.  Rankin  in  consultation  with  E.  Riks,  this  modified  algorithm  avoids 
the  singularity  in  the  stiffness  matrix  at  the  critical  point,  thereby  permitting  a smooth 
continuation  of  the  solution  even  when  a solution  point  coincides  exactly  with  the  critical 
point.  NLJSTATIC-2  is  preferred  over  NL_STATIC_1  whenever  solution  points  are  desired 
very  near  the  critical  area,  or  when  the  singularity  of  the  stiffness  is  likely  to  persist  over 
some  distance  along  the  solution  path.  In  the  absence  of  numerical  difficulties,  however, 
NL_STATIC_1  and  NL_STATIC_2  produce  identical  results. 

3.10.2  PROCEDURE  USAGE 

Procedure  NL_STATIC_2  may  be  invoked  by  the  *call  directive: 

♦call  NL-STATIC-2  ( argl  = vail;  arg2  = val2;  ...) 

where  argt  are  argument  names  and  valz  are  the  corresponding  values  you  wish  to  give 
them.  The  following  are  valid  arguments  for  NL_STATIC_1;  note  that  those  without 
default  values  are  mandatory,  while  the  others  are  optional. 


Areument 

Default  Value 

Meaning 

BEG-LOAD 

- 

Starting  load  factor  (>0.) 

BEG.STEP 

- 

Starting  step  number  (>0) 

MAX-LOAD 

- 

Upper-bound  on  load  factor 

MINJLOAD 

— 

Lower-bound  on  load  factor 

MAX-STEPS 

- 

Maximum  steps  to  compute 

COROTATION 

i 

Corotational  Update  Option 

DESJTERS 

4 

Number  of  iterations  per  step  desired 

EXTRAPOLATE 

<true> 

Perform  quadratic  extrapolation  of  solution 

FACJSTEPS 

1 

Steps_per_refactoring 

MAXJTERS 

9 

Maximum  iterations  per  step 

MAX-CUTS 

3 

Maximum  number  of  successive  step  cuts 

NL.GEOM 

2 

Geometric  Nonlinearity  Level  (1  or  2) 

NOMINAL.DB 

NOMINAL.GAL 

Results  database  file 

NOMINALJDS 

RESPONSE.HISTORY 

Results  dataset 

N-SELECT 

0 

Number  of  nodes  for  selected  disp.  output 

PATH-SCALE 

1. 

Arclength  scale  factor  for  restarts 

SEL.NODES 

0 

List  of  nodes  for  selected  output 

SEL-DOFS 

0 

Corresponding  list  of  nodal  freedoms  (1-6) 

T0L.E 

l.E-3 

Relative  error  tolerance  in  energy  norm 

ADV.RIKS 

<false> 

If  true,  advanced  Riks;  else,  do  NL-STATIC.l 
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3.10.3  ARGUMENT  GLOSSARY 

The  only  additional  argument  that  NL_STATIC_2  has  is  ADV-RIKS.  All  other  arguments 
are  identical  in  name  and  function  as  their  counterparts  in  NL_STATIC_1. 

3.10.3.1  ADV-RIKS 

This  is  a logical  parameter,  that,  when  set  to  <true>,  invokes  the  advanced  Riks  option. 
Otherwise,  NL-STATIC-2  reduces  to  NL-STATIC.1. 
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3.10.4  INPUT/OUTPUT  DATASETS 

The  input/output  requirements  of  NL_STATIC_2  are  identical  to  NL_STATIC_1. 
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3.10.5  SUB-PROCEDURES  AND  PROCESSORS 


Table  3.10-2  Sub-Procedures  Invoked  by  Procedure  NL_STATIC_2 

Procedure 

Type 

Function 

NL-STATIC.2 

Internal 

Main  Procedure 

CHK-CONV 

Internal 

Check  convergence 

DEFNS 

Internal 

Defines  recursive  macrosymbols 

ES 

External 

Element  utility  Procedure 

FACT-STIFF 

Internal 

Factors  Stiffness  Matrix 

FORM-STIFF 

Internal 

Forms  Stiffness  Matrix 

RESIDUAL 

Internal 

Forms  residual-force  vector 

SOLVE 

Internal 

Solves  linear  equation  systems 

STIF.COLMN 

Interned 

Fixes  Freedom  I,  Extracts  Stiffness  Col.  I 

TWO_BY_TWO 

Internal 

Computes  Advanced  Riks  Reduced  Coefficients 

Table  3.10-3  Processors  Invoked  by  Procedure  NL_STATIC_2 

Procedure 

Type 

Function 

AUS 

Internal 

Extracts  column  I of  Stiffness 

E 

Internal 

Initializes  EFIL  datasets 

ESt 

External 

Element  Processors  based  on  GEP 

INV 

Internal 

Factors  stiffness  matrix 

SSOL 

Internal 

Solves  linear  equation  systems 

VEC 

Internal 

Performs  all  vector/pseudo- vector  algebra 
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3.10.6  LIMITATIONS 

NLJSTATIC.2  has  the  all  the  limitations  that  are  listed  in  Section  4.1.6.  However,  whereas 
numerical  difficulties  can  be  expected  with  NL_STATIC_1  near  a critical  point,  no  diffi- 
culties whatsoever  should  be  expected  with  NL_STATIC_2  near  limit  (as  opposed  to  bi- 
furcation points).  There  are  two  additional  software  limitations  described  in  the  next  two 
subsections. 

3.10.6.1  AUS  Limitation 

Due  to  hard  wired  data  set  naming  conventions  in  processor  AUS  for  system  matrices 
( e.g . K.SPAR.36),  the  number  of  DOF’s  per  node  specified  on  the  START  command  of 
processor  TAB  is  presently  restricted  to  be  6.  AUS  is  currently  essential  to  NL_STATIC_2 
for  computing  the  product  of  the  stiffness  with  an  elementary  vector  to  extract  row  I of 
the  stiffness  matrix.  This  restriction  will  be  removed  when  we  make  the  connection  to  the 
Generic  Matrix  Processor. 

3.10.6.2  First  Two  Steps 

Because  of  the  way  the  extrapolation  is  set  up,  NL_STATIC_2  operates  as  NL_STATIC_1 
for  the  first  two  steps  for  a new  (not  restart)  analysis.  This  limitation  is  not  important, 
since  it  is  highly  unlikely  that  a critical  point  will  be  reached  at  the  very  beginning  of  a 
solution  sequence. 

3.10.7  ERROR  MESSAGES 

All  error  messages  have  the  same  meaning  as  in  NLJSTATIC-l  (section  4.1.7). 

3.10.8  USAGE  GUIDELINES  AND  EXAMPLES 

As  they  are  identical  to  NL_STATIC_1,  please  consult  section  4.1.8  for  usage  guidelines. 

3.10.0  THEORY 
3.10.0.1  Introduction 

Procedure  NL_STATIC_2,  like  NL_STATIC.l,  performs  a quasi-static  analysis  of  a sys- 
tem of  nonlinear  equilibrium  equations  using  an  adaptive  arclength-controlled  New- 
ton/Raphson  incremental/iterative  solution  algorithm.  The  function  of  the  arclength  con- 
straint, the  stepsize  selection,  and  convergence  criteria  are  identical  to  NL_STATIC_1. 
Because  almost  all  of  the  theory  underlying  NL_STATIC_2  is  covered  in  Section  4.1.9,  only 
the  matrix  partitioning  and  pivoting  process  that  avoids  the  factoring  of  a singular  or  near 
singular  stiffness  matrix  is  covered  here. 
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3.10.9.2  The  Block  Pivot  Strategy 

The  difficulties  that  occur  in  NL_STATIC_1  can  be  readily  seen  by  examining  Eq.  (8). 


K*d  = mrbboid.  + afe“ 


2 Ad  • £d  = c 


(3.10-1) 


?X  t ___ 

, is  the  external  load,  c is  the  arclength  parameter,  and  £d  is 
the  desired  displacement  increment.  Clearly,  if  K is  singular,  we  will  have  a problem  in 
solving  this  pair  of  equations.  For  limit  points , however,  the  extended  equation  system 
containing  the  constraint  (second  of  (57))  is  non-singular.  A simple  and  robust  method  of 
overcoming  the  singularity  is  to  select  out  the  equation  for  a particular  freedom  and  treat 
it  the  same  way  as  the  constraint  equation,  solving  three  rather  than  two  sets  of  equations, 
as  illustrated  by  the  following 


' K 1 -?■" 

r -"v  « 

6 d 

r 

(ff  Kn 

6dj 

— 

ri 

. c cj  0 

ms\  m 

. c m 

(3.10  - 2) 


where  K is  the  stiffness  matrix  with  row  and  column  I removed.  The  hats  over  vectors 
also  indicate  that  row  I has  been  deleted,  't  is  column  I of  the  stiffness,  with  Kn  being 
the  diagonal  element  for  freedom  I.  The  same  partitioning  also  applies  to  the  external 
force  f**  and  the  constraint  equation  c. 

If  we  formally  solve  the  first  of  (58)  for  £d  and  substitute  the  result  into  the  remaining 
two  equations,  we  obtain  the  following  two-by-two  nonsymmetric  system  of  equations  for 
Sdi  and  6X: 


Ku-tffit  ¥ (f/)TK  - /;*«' 

8dj 

r,  - (?)tK~Y 

. ctk"Y“  . 

6X 

c — c K r J 

(3.10  - 3) 


One  additional  forward/backsolve  is  required  with  this  algorithm.  After  each  factoring  of 
the  stiffness  matrix,  one  must  solve  the  pair 


K£v  = f 
K£w  = f 


(3.10  - 4) 


for  vector  6v  and  Sw.  6vr  corresponds  to  £d  in  the  second  of  (11).  $d  is  also  used  for  Sw 
in  the  description  of  the  NL_STATIC_2  algorithm.  The  following  vector  must  be  solved 
every  iteration : 


Ku  = r 


(3.10  - 5) 
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This  equation  corresponds  to  the  first  of  (11).  The  two-by-two  system  (59)  becomes 


C/-C  fv 


1 

H 

1 

<* 

Ei 

€ 

1 

1 

'rr-(f)Tu' 

i 

<* 

vs 

% 

8\ 

/ST  XN. 

L c — c u J 

An  A12 

'8dj' 

Ri' 

A21  A22 

8X 

R 2 

(3.10  - 6) 


We  have  rewritten  the  first  of  (62)  with  the  notation  used  in  the  description  of  the  algo- 
rithm, where  the  coefficients  Aij  and  Ri  are  the  reduced  Riks  coefficients  and  residuals, 
respectively;  a comparison  of  the  first  of  (62)  with  the  second  yields  their  values. 

Once  8di  and  8\  are  known,  the  full  solution  becomes  the  sum 


£d  = u — SdjSv  + 5\6v/  (3.10  — 7) 

id  is  then  expanded  by  one  freedom  and  the  explicit  value  fid/  previously  solved  for  is 
inserted.  The  advantage  of  (62)  is  that  this  system,  in  contrast  to  (8)  is  never  singular  at 
a limit  point,  provided  that  the  component  I does  not  correspond  to  a zero  entry  in  the 
tangent  displacement  vector  at  the  critical  point. 
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i 


A simple  method  for  ensuring  a nonsingular  reduced  stiffness  K is  to  look  at  the  difference 
between  the  last  converged  solution  and  the  predicted  solution  for  the  current  step.  We 
choose  that  particular  component  with  the  largest  absolute  value;  its  index  becomes  /, 

and  the  stiffness  column  belonging  to  that  freedom  becomes  Y with  diagonal  Ku.  In 
practice,  after  we  have  selected  the  proper  index,  we  generate  an  elementary  vector  that  is 
zero  except  for  unity  in  position  I.  f1  is  just  the  product  of  the  stiffness  matrix  with  the 

elementary  vector.  / is  this  same  column  with  row  I deleted. 


3.10.0.4  Constructing  the  Solution 

Immediately  after  the  stiffness  matrix  has  been  factored,  we  solve  (60)  for  8v  and  8w. 
Solution  for  8 w is  treated  like  the  corresponding  solution  for  £d  in  (37),  with  specified 
displacements  being  handled  exactly  as  in  NLJSTATIC.l.  The  only  difference  is  that  the 
new  stiffness  has  one  additional  freedom  held  fixed.  In  practice,  entry  I is  added  to  the 
specified  displacement  list  (and  if  I has  changed  since  the  last  step,  the  previous  freedom 
is  “ released ” or  “unfixed”).  The  solutions  8v,  8 w are  full  system  vectors  with  a zero  in 
the  Ith  slot.  At  each  iteration,  a new  basic  displacement  increment  u is  also  solved  for 
(62).  After  solution  of  the  reduced  two-by-two  system  (62),  (63)  is  used  to  construct 
the  full  displacement  increment.  This  is  followed  by  direct  insertion  of  the  increment  for 
component  I. 
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3.10.9.5  Computing  the  Stiffness  Determinant 

The  determinant  of  the  stiffness  K is  not  equal  to  that  of  the  original,  unconstrained 
stiffness.  However,  since  our  algorithm  is  a special  case  of  a block  Gauss  elimination^  is 
a simple  matter  to  compute  it.  The  full  determinant  of  the  stiffness  matrix  is  the  product 

Det(K)  = Det(K)Ajj  (3.10  - 8) 

Note  that  when  An  vanishes,  the  stiffness  determinant  also  vanishes.  However,  the  system 
(62)  is  still  nonsingular  whenever  the  off  diagonal  reduced  coefficients  are  nonzero  (the 
extended  system). 
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3.10.10  ALGORITHM  FLOW  CHART 


General  Algorithm 

(1)  STEP  LOOP:  n = 2,  3,  4 . . . (step  = n+1) 

(1.1)  Extrapolate  Solution  for  Predictor 

call  EXTRAP  ( A£n+j,  Aln,  Aln_i  — ► cn,cn_i,cn_2  ) 

^n+1  = cn^n  "f"  cn— lAn— 1 + ®n- 2 An— 2 

dn-f  1 = cndn  + Cn_idn_i  + Cn_2dn_2 


Ad 

AA 


(i) 

n+l 


(1) 

n+l 


- d(1) 

— “n+l 

- A(1) 

— An+ 1 


v A n+l 


R-C^d^iJTn) 


(1.2)  Form  and  Assemble  Stiffness 

(1.3)  Find  Index  of  Largest  Tangent  Component 
Extract  Column  I from  Stiffness  (including  diagonal) 

I = Arg{max  |Ad(fc£J,|} 
f7  = Ke/ 


(1.4)  Fix  freedom  I to  give  constrained  K (K) 

(1.5)  Solve  for  Tangential  Displacement  based  on  Predictor 


(1.6)  Solve  for  perturbation  displacement  Sv 


(1.7)  Solve  for  Riks  reduced  system  coefficients 
Sv/  = 0. 

£dj  = 0. 

An  =f / -f  -Sv 

A12  = -T/t  + fI-(6d-d') 

A2J  = 2( Ad(/)(n1]1  - Ad£>,  • Sv) 
A2  2 =2Ad(n1]1  -5d 


Revised  5/23/90 


CSM  Testbed  Procedures  Manual 


3.10-  9 


NL_STATIC-2 


Solution  Procedures 


(1.7)  Form  Residual  based  on  Predictor 
= r(d^X%)  = 

callCHK_CONV(r^1,Ad(n1J1,£re/  ^\eref  ) 

(2)  ITERATION  LOOP:  i = 1,  2,  . . . (iter  = i+1  = 2,  3,  . . . ) 

(2.1)  Solve  for  Basic  Iterative  Displacement  Change 

<3  - K~‘(dS,)  iff, 

(2.2)  Solve  for  Reduced  r.h.s. 

Sdj  — 0. 

= ••(/)«  ,-?'«3 

R i = - Ad««,  ■ Ad^,  - 2Ad^1  • «d 

(2.3)  Solve  2x2  Reduced  system: 


'An 

A 12 

' Sd / 

Ri 

A22  _ 

6X 

R2 . 

(2.4)  Update  Displacements  and  Load  Factor 

Sd  = 6 d + «A£d  - M/5v 

d^:1  = d«, + sd  = r <«d)T« ,) 

Ad'*,1’  = Ad« , + «d 

& = + « 


(2.4)  Compute  New  Residual 


_(<+!)  _ 
Fn+l  - 


U+ih  _ 


w>r“  - r-(d<::;>) 


(2.5)  Check  Convergence 

call  CHK.CONV  ( r^Sd^Vre/^oi,  nunudiv  -* 

£<i+1),  <CONVERGED>,  <DIVERGED>  ) 

if  ( <CONVERGED>  ) then 

numJters  jequired  = iter 
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a a _ a t ( numJters_desired  \ 

— atn+i  ^ num  iter  s_required  ) 

» ♦—  n -f  1 

go  to  (1)  STEP  LOOP 

elseif  ( <DIVERGED>  .or.  (iter  > maxiters)  ) then 
if  ( numjcuts  < max_cuts  ) then 
= A^n+i/2 

num.cuts  = num.cuts  + 1 
go  to  (1.3) 

else 

STOP 

endif 

else 

» «—  t + 1 

go  to  (2)  ITER  LOOP 

endif 
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Starting  Procedure:  Step  1 (n=0) 

Replace  Algorithm  Steps  (1.1)-(1.2)  by: 

d(,0)  = 0 

*d  = K-1(di0))  [?"*  + Ku*d*] 

= A4tart  (user  specified) 

AA<»  = A?> 

A*,  = AA?*  ||«a|| 

Adj1}  = AA(!1}  Sd 
d™  = Ad^ 

( Also,  form  K(dj^)  before  next  solve.  ) 

Starting  Procedure:  Step  2 (n=l) 

Replace  Algorithm  Steps  (1.1)— (1.2)  by: 

d<°>  = dl 

*d  = K-1(dj0))  [f***  + K“'d'] 

AA?>  = A^/||*d|| 

= Ai  + AA^ 

AdjJ)  = AX^Sd 

d<*>  = dj+Ad^  (T(21}  = R(Ad^1}  Ti) 
( But  don’t  reform  K(dj^)  until  step  3.  ) 
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d 

5d 

Ad 

< 

Ad‘n 

Sd 
A i 


r 

K 

K 


£d 
Sd * 

num.cuts 

numjdiv 

cn 

<#■»* 

£ 

e 


€re/ 

CtoZ 

A 

AA 


a* 

d' 


NOTATION 

Displacement  vector. 

Iterative  change  in  d. 

Incremental  (load-step)  change  in  d. 

Displacement  vector  at  iteration  t of  step  n. 

Incremental  (step)  change  in  d.  Ad£^  = d£+j  — dn 

Tangential  displacement  = K-1?*** 

Incremental  arclength  (step)  parameter. 

External  force  vector  — base  load. 

Internal  force  vector. 

I’th  column  of  K 
Residual  force  vector. 

Stiffness  matrix. 

Stiffness  matrix  with  I’th  row  and  column  deleted 

— i~j 

Solution  vector  corresponding  to  K f 

Basic  (fixed-load)  iterative  change  in  d£ 

— ^ 

Linear  combination  of  Sd  and  £d. 

Advanced-Riks  reduced  system  coefficients 
Advanced- Riks  reduced  residuals 

Number  of  times  load  step  has  been  cut  in  half  at  current  step. 

Number  of  consecutive  iterations  at  which  divergence  occurs. 

Extrapolation  coefficient  corresponding  to  step  n. 

Relative  error  in  energy  norm. 

Absolute  error  in  energy  norm. 

Reference  value  of  e;  initialized  as  zero. 

Relative  error  tolerance  (default:  10~4). 

Load  factor. 

Incremental  (load-step)  change  in  A. 

Stiffness  submatrix  coupling  specified  (s)  displacement  components  with  force 
components  corresponding  to  unknown  (u)  displacements. 

Base  value  of  specified  displacement  vector. 

Current  value  of  specified  displacement  vector,  d*  = A d . 


Revised  5/23/90 


CSM  Testbed  Procedures  Manual 


3.10-  13 


NL'STATIC’2 


Solution  Procedures 


3.10.11  PROCEDURE  LISTING 


•procedure  HL.ST1TIC.2  ( — 

beg.step  »1 


■ax.steps=l 
■ax_iters*9 
des.iterss4 

f ac.stepssl 
■ax.cuts=3 
tol.e»l.E-3 
beg.load 
■ax. load 
ain.load 
path.scale=l 
extrapolate*<true> 
line.search*l . ; — 
debugs <FALSE> 
NL.GEON  * 2 
CQROTATIONsl 


Starting  stap  number  (>0) 
Maxiaua  stapa  to  compute 
Maxiaua  it orations  par  atop 
Nuabar  of  itarationa  da air ad 
Stapa .per .ref  act  or ing 
Maxiaua  nuabar  of  atap  cuta 
Enargy  arror  tolaranca 
Starting  load  factor  (>0.) 
Uppar .bound  on  load  factor 
Lo war .bound  on  load  factor 
Path.inc  scl.factor  (restart) 


adv.riks 
Noainal.DB 
Moainal.DS 
N.SELECT  ; 


Initial  line-search  paraaatar 
Dabug.print  switch 
Geoa.  Nonlin.  Laval  (1|2) 
Corotational  Flag  (laava  on!!) 
— . Advanced  EIKS  flag, 
s NOMINAL. GAL  ; — . Selected  Output 
= RESPONSE. HISTORY  ; — 

SEL.NODES ; SEL.DOPS  — 


s <false> 


•Reaark  

•Reaark  I 
•Reaark 

•if  < [adv.riks]  > /than 
•reaark 
•andif 
•Reaark 
•Reaark 
•Reaark 
•Reaark 
•Reaark 
•Reaark 
•Reaark 
•Reaark 
•Reaark 
•Reaark  I 
•Reaark  


NL.  STATIC.  1 


ADVANCED  RIKS 


CSM  Testbed  Procedure  for  Nonlinear  Statics: 


Corotational  Nevton/Raphson  algorithm 
Linearized  Criaf ield/Riks  arc -length  control 
Applied  forces  and/or  displacements 


Authors : 
Version: 


G.M.  Stanley 
MAR-03-1988 


and  C.C.  Rankin 


. INITIALIZATION 


•def/i  ns. overwrite 
•def/i  debug 
•def/i  aax.step 
•def/i  nua.iters 
*def/d  path.scale 
•def/i  extrapolate 
•def/a  NOM.DB 
•def/a  NOM.DS 


s*  <true> 
ss  [debug] 

ss  <[beg.step]+[aax.steps]-l> 
**  [des.iters] 

■a  [path.scale] 
ss  [extrapolate] 

*=  [Noainal.DB] 
ss  [Noainal.DS] 
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♦daf/i  N_ SELECT  ««  [N.SELECT] 

•daf/i  SEL.NODES [1 : <N_SELECT>]  « [SEL.NODES] 

•daf/i  SEL_D0FS[1:<N.SELECT>]  ==  [SEL.DOFS] 

•daf/i  NL.GEOH  « [NL.GEQM] 

*dti/ i CGRGTATIGN  » [CGRGTATIGN] 

♦CALL  DEFNS  ( STEP  « [BEG .STEP] ; ITER  * 0 ) 

•IF  < [BEG.STEP]  /EQ  1 > /THEN 
♦Raaark  INITIALIZATION: 

•call  INITIAL 
•ENDIF 

. BEGIN  STEP.LOOP 

•DO  : STEP.LOOP  $n  * 0,  <[aax.staps]-l> 

•daf/i  stap  **  < [bag.* tap] *<$n>  > 

•daf/i  pass  **  1 
•daf/i  tot.itara  ==  1 

•if  < «stap>  /gt  2>  /and  «axtrapolate>  /aq  <trua»  > /than 
•daf/i  axtrap.this.stap  **  <trua> 

•alsa 

•daf/i  axtrap.this.stap  <falsa> 

•andif 

•Raaark 

•raaark 

•raaark 

•Raaark  BEGINNING  STEP  <STEP> 

•raaark 

•remark 

•call  DEFNS  ( stap  * <stap>;  itar  = 1 ) 

:NEV.PASS  . Ra-antry  point  for  stap~siza  raduction 

[XQT  VEC 

•if  < «stap>  /gt  1>  /and  «pass>  /aq  1>  > /than 
•daf/d  path. in c ==  < <path.scala>*<path.inc.n>  > 

•Raaark  Nav  PATH  INCREMENT  * <path.inc> 

•andif 

• . . Ganarata  Displacaaant  PREDICTOR 

•if  <axtrap.this.stap>  /than 

•Raaark  Pradicting  displacaaants/load  via  EXTRAPOLATION 
•call  EXTRAP  ( dx.npl  = <path.inc>  ; cx.n  = cx.n  ; — 

dx.n  s <path.inc.n>  ; cx.nal  * cx.nal;  — 
dx.nal  * <path.inc.nal> ; cx.na2  * cx.n* 2 ) 

•daf/d  laa.npl.i  *s  < (<cx.n>*<laa.n>) 

♦ (<cx.nal>*<laa_nal>)  — 

♦ (<cx.na2>a<las.na2>)  > 


<d.npl_i> 

<- 

<cx.n>  <d.n> 

♦ <cx.nal> 

<d.nal> 

<d_npl.i> 

<- 

<d.npl_i> 

♦ <cx.iud2> 

<d.na2> 

<d.inc_i> 

<- 

<d_npi.i> 

- <d.n> 

ROTATE 

A 

H 

1 

0 

V 

• <d.inc_i> 

->  <T.npl„ 

-i> 

•alsa 

•Raaark  Using  Pravious  Stap  as  Displacaaant  Pradictor 
•raaark 
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*r«iark  Last  displacement  dataset  : <d_n> 

♦remark 

♦del  lam_npl_i  **  <lam_n> 

<d_npl.i>  <-  <d_n> 

<T.npl_i>  <-  <T_n> 

<d_inc_i>  <-  <d_n> 

♦endil 

*11  < <spec_disp_llag>  > /then 

SPECIF!  <la*_npl_i>  <d_ext>  ->  <d_npl_i> 

♦endil 

. . . Form  Stillness  based  on  Predictor 

e 

♦il  < < <pas*>  /eq  1 > /or  <extrap_this_step>  > /then 
♦call  FORM.STIFF  (displacement  * <d.npl.i>;  — 

rotation  = <T_npl_i>;  — 

stillness  * <K_asm>  ) . output 

. . . Find  largest  tangent  component  I = <ndel>  <ld> 

. . . Extract  corresponding  column  ol  system  matrix 
. . . Specily  Ireedom  NDEF,  FD  as  constrained  to  zero 

♦il  <adv_riks>  /then 

♦il  «step>  /le  1>  /then 
•del/i  ndel**0 

♦else 

♦call  STIF.COLMN 
♦endil 

♦else 

♦del/i  ndelssO 
•endil 

. . . Factor  stillness  with  the  added  constraint 
♦call  FACT.STIFF 

. . • Solve  lor  Tangential  Displacement 

♦call  TANDIS  ( step  * <step>  5 iter  « 1 ; — 

displacement  = <d_npl_i>  ; — 
rotation  ■ <T_npl_i>  ; — 
load.lactor  = <lam_npl_i>;  — 
max .load  = [max.load]  ; — 
external. force  = <F_ext>  ; — 

internal. force  * <F_int>  ; — 

specif ied.disp  * <d_ext>  ; — 

tangent. force  « <F_T>  ; — 

tangent.disp  * <delta_T>  ) 

. . . Solve  lor  incremental  displacement  based  on  stillness  column  1 
♦il  «ndel>  /gt  0>  /then 


I 
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•call  SOLVE  ( EHS  = <K_I>;  SOLE  = <d«lt«_I>  ) 

••ndif 

••ndif 

• . • Compute  Magnitude  of  Tangential  Displacement 

NORM  <delta_T>  ->  mag.delta.T  . magnitude  o 1 tang,  displacement 


Predict  Load  Factor  and  Path  Increment  lor  Current  Step 


*il  < <step>  /eq  1 > /then 
*il  < <pass>  /eq  1 > /then 

*def/d  lam.npl.i  ==  [beg. load] 
*del/d  lam.inc  »«  <lam.npl_i> 
edel/d  path.inc 
•del/i  load.dir 
•else 

•del/d  lam.inc 
•del/d  lam.npl.i  **  <lam. 

•endil 

•elseil  < <step>  /gt  1 > /then 


■*  < <lam_inc>*<mag.delta.T>  > 
==  <SIGN(1. ;<lam_inc>)> 

==  < <path.inc>/ <mag.delta.T>  > 
inc> 


. . • . Path.Increment  based  on  Iterative  Performance,  Set  Direction 

•il  < <sign.det>  /ne  <s ign.de t_n>  > /then 
•del/i  load.dir  *■  < -l.*<load_dir.n>  > 

•else 

•del/i  load.dir  ==  <load.dir.n> 

•endil 

. . • . Compute  Load. Increment 

•il  <extrap.this.step>  /then 

•del/d  lam.inc  ==  < <lam_npl.i>  - <lam.n>  > 

•else 

•Remark  USING  CONSTRAINT  EQN  TO  PREDICT  LOAD  AT  STEP  <step> 
•del/d  lam.inc  *»  « <path.inc>/<mag_delta_T>  >*<load.dir» 
•del/d  lam.npl.i  ■»  «lam.n>«-<lam_inc» 

•endil 

•endil 

•Remark  LAMBDA.<step>~  1 * <lam.npl.i>  , LAMBDA. INC  = <lam.inc> 

•if  < <lam.npl.i>  /gt  [max.load]  > /then 
•Remark  MAXIMUM  LOAD. LEVEL  OBTAINED. 

•jump  to  :EXIT 

•elseil  < <lam.npl.i>  /le  [min.load]  > /then 
•Remark  MINIMUM  LOAD.LEVEL  OBTAINED. 

•jump  to  :EXIT 
•endil 

•if  «extrap.this.step>  /eq  <lalse»  /then 

•Remark  MODIFYING  PREDICTOR  VIA  PATH-CONSTRAINT 
<d.inc.i>  <-  <lam.inc>  <delta.T> 

<d.npl.i>  <-  <d.n>  ♦ <d.inc.i> 

ROTATE  <T.n>  • <d.inc.i>  ->  <T.npl.i> 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


3.10-  17 


NL‘STATIC'2 


Solution  Procedures 


♦if  < <spec.disp.flag>  > /then 

SPECIFY  <lam.npl.i>  <d_ext>  ->  <d.npl.i> 
♦endif 
♦endif 


. . . Compute  2x2  system  coefficients 


♦call  TVO.BT.TVO  (free  = <ndef» 


. . . Fora  (Stress  and)  Residual. Force  Vector 


♦call 


RESIDUAL  ( step  * <step> 


iter  * 1 

displacement  * 
rotation  * 
load.factor 
external.! orce 
internal.! orce 
residual.force 


<d.npi_i>  ; 

<T.npl_i>  ; 

* <laa.npl.i> 
3 <F.ext> 

* <F.int> 

« <R.npl.i>  ) 


input 


. output 


. . . Initialize  Convergence  Criteria 

♦call  CHKCONV  ( STEP  * 1 ; ITER  * 1 

Residual.force  * <R.npl.i> 
displacement. inc  3 <d.inc.i> 
load.inc  * <laa.inc> 

relaxation  3 s ) 

♦if  <CONVERGENCE>  /then 

♦def/d  lam.npl.ipl  33  <lam_npl.i> 

♦juap  to  : CONVERGED 
♦endlf 


. — BEGIN  ITERATION  LOOP 

♦DO  : ITER.LOOP  ti  3 1,  [max. iters] 

*def/i  iter  33  «$i>+l> 

♦def/i  tot. iters  ==  «tot.iters>+l> 

♦if  < «step>  /eq  1>  /and  «iter>  /eq  2>  > /then 
♦call  FORN.STIFF  (displacement  » <d.npl.i>;  — 

rotation  3 <T.npl.i>;  — 

stiffness  3 <K_asm>  ) 

. . . Find  largest  tangent  component  I 3 <ndef>  <fd> 

. . . Extract  corresponding  column  of  system  matrix 
. . . Specify  freedom  NDEF,  FD  as  constrained  to  zero 

♦if  <adv.riks>  /then 

♦if  «step>  /le  1>  /then 
*def/i  ndef ==0 

♦else 

♦call  STIF.COLNN 
♦endif 

♦else 


output 
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*d.f/i  nd»i*»0 
••ndif 

. . . Factor  stiffness  with  tho  addod  constraint 
•call  FACT.STIFF 

Update  Tangential  Diaplacaaant  if  Specified  Diapla.,  ate. 

•if  < <apec_diap_flag>  /or  <liva.load.flag>  > /than 
♦Remark  o Recomputing  Tangential  Diaplacaaant 
•call  TANDIS  ( atep  * <atap>  ; itar  « <li>;  — 
diaplacaaant  = <d_npl_i>  ; — 
rotation  = <T.npl_i>  ; — 
load.f actor  * <laa_npl.i>;  — 
aaz.load  * [sax. load]  ; — 
external. force  * <F_ext>  ; — 
internal _f orce  = <F.int>  ; — 
apacif iad.diap  = <d.ext>  ; — 
tangent. force  = <F.T>  ; — 

tangent. diap  = <delta.T>  ) 

•andif 

. . . Solve  for  incremental  diaplacaaant  baaed  on  atiffnaaa  column  I 

•if  «ndaf>  /gt  0>  /than 

•call  SOLVE  ( RHS  * <K_I>;  SOLN  * <delta.I>  ) 

•andif 

, . . Compute  2x2  ayataa  coafficianta 

•call  TVO.BY.TVO  (free  * <ndaf» 

•andif 

Compute  Baaic  Diaplacaaant  Iteration  (delta.B) 

•call  SOLVE  (RHS  * <R.npl.i>;  SOLN  = <DELTA.B>  ) 


Compute  New  Load-Factor  and  Diaplacaaant  Component  I 
Advanced  Rika  (2  x 2)  ayataa. 

DOT  <delta.B>  • <d_inc.i>  ->  db.DOT.Dd 
DOT  <d.inc.i>  • <d.inc.i>  ->  Dd.DOT.Dd 
•daf/d  R.2  »•  < <path.inc>*<path.inc>  > 

*def/d  R.2  ==  < <R.2>  - <Dd_DOT_Dd>  - <2.0*<db_D0T_Dd»  > 
•if  «ndaf>  /gt  0>  /than 

COMPONENT  <ndef>  <fd>  <r.npl_i>  ->  r.I 
DOT  <dalta.B>  • <K.I>  ->  db.DOT.K.I 

•daf/d  R.I  « «r.I>  - <db.DOT.K.I» 

Solve  2x2  RIKS  ayataa 
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*def/d  Rdet  » «<A_11>  * <A_22»  - «A_12>  * <A.21»> 

*def/d  dd.I  * <«R_1>  * <A_22»  - «R_2>  * <A.12»> 

•del/d  dlam  a «<A_11>  * <R_2»  - «A_21>  * <R.1»> 

•del/d  dd_I  = «dd_I>  / <Rdet» 

*def/d  dlam  = «dlam>  / <Rdet» 

•else 

Solve  simple  1-D  RIKS  syitu  lor  load  factor  (Normal  Riks) 

*def/d  dlam  a «R_2>/<A_22» 

•andil 

Update  load  Factor 

«def/d  lam.npl.lpl  * < <lam_npl_i>  ♦ <dlam>  > 

•remark 

•ramark  •REMARK  RANKIN’S  ROOT  SELECTION: 

•remark  Dd  • Dd  * <Dd_dot_Dd> 

•ramark  dlam  a <Dlaa> 

•ramark  lambda  * <lam.npl_ipl> 

•ramark  *remark 

: LOAD.LEVEL 

Update  Increment* 

<delta>  <-  <dalta_B>  + <dlam>  <dalta_T> 

•if  <<ndaf>  /gt  0>/then 

Add  Solution  Duo  to  Perturbation  in  I’th  Displacement  Component 

.......  (Advanced  Riks  Only) 

<delta>  <-  <delta>  - <dd_i>  <delta.I> 

Set  last  component 

COMPONENT  <ndef > <id>  <delta>  <-  <dd.I> 

•andil 

Update  Displacements , Rotations 

<d_npl_ipl>  <-  <d_npl_i>  ♦ <delta> 

ROTATE  <T_npl_i>  • <delta>  ->  <T_npl_ipl> 

<d_inc_ipl>  <-  <d_inc_i>  ♦ <delta> 

•if  < <*pec_disp_f lag>  > /then 
SPECIF!  <laa_npl_ipl>  <d.ext>  ->  <d_npl_ipl> 

•andil 

•If  < <DEBUG>  > /then 
•print  1,  <d_npl_ipl> 

•print  1,  <T_npl_ipl> 

•andil 

FORM  (STRESSES  AND)  RESIDUAL.FORCE 
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•call  RESIDUAL  ( stap  * <stap>  ; — . input 

itar  * <itar>  ; — 

displacement  * <d_npl_ipl>  ; — 

rotation  = <T,npl_ipl>  ; — 

load.lactor  * <lan_npl_ipl>  ; — 

axtaraal.lorce  * <l_axt>  ; — 

internal .lore a * <F_int>  ; — 

residual, force  * <R_npl_ipl>  ) . output 

. . . CHECK  CONVERGENCE 

♦call  CHKCONV  ( step  ■ <step>  ; — . input 

iter  = <iter>  ; — 

Residual..!  or  ce  = <R_npl_ipl>  ; — 

displacement. inc  * <dalta>  ; — 

load. inc  =0.0  ; — . lor  arror  norm 

tol.e  = [tol.e]  ; — 

max.iters  = [max.iters]  ; — 

convarganca  = CONVERGENCE;  — • output 
divarganca  = DIVERGENCE  ; — 
ralaxation  * s ) 

ail  «C0NVERGENCE>  /aq  <TRUE»  /than 
ajunp  to  : CONVERGED 

aalsaif  «DIVERGENCE>  /aq  <TRUE»  /then 
aif  < <pass>  /la  [max.cuts]  > /than 
ajunp  to  j REPEAT 

aalsa 

* Ran ark  Naxinun  nunbar  of  autonatic  step  cuts  axhaustad. 
ajunp  to  : DIVERGED 
aandif 
aandif 

adal/d  lan.npl.i  ==  <lan.npl.ipl> 

: ITER. LOOP 
: NEUTRAL 

ail  < <pass>  /la  [nax.cuts]  > /than 
ajunp  to  : REPEAT 
aalsa 

aRanark  Naxinun  nunbar  ol  autonatic  step  cuts  axhaustad. 

«andil 

aRanark  NON-CONVERGENCE  AT  STEP  <stap>.  REVISE  STRATEGY, 

ajunp  to  :EXIT 
: REPEAT 

adal/i  pass  **  < <pass>+l  > 

•dal  path. inc  as  < <path_inc>/2 . > 
aRanark 

aRanark  CONVERGENCE  DIFFICULTIES;  REPEATING  STEP  <stap> 
aRanark  with  raducad  path, increment  = <path.inc> 
aRanark  Pass:  <pass> 
ajunp  to  sNEW.PASS 
: DIVERGED 

aRanark  DIVERGENCE  AT  STEP  <STEP>.  REVISE  STRATEGY, 

ajunp  to  :EXIT 
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: CONVERGED 

*R aaark  CONVERGENCE  AT  STEP  <STEP>. 


: NEXTSTEP 
•daf/i  nua.itars 
«daf/d  p&th.scala 
*daf/d  path.inc.nal 
•def/d  path.inc.n 
•def/d  lia_na2 
•def/d  lia.nal 
•def/d  laa.n 
•def/i  sign.det.n 
•def/i  load.dir.n 


=3  <iter> 

<[dai_itars]/<nua.iters» 
» = <path_inc_n> 

= a <path.inc> 
as  <laa_nal> 
as  <laa_n> 
as  <laa.npl.ipl> 
as  <sign.dat> 


* <load.dir> 

•call  POSTSTEP  ( stap*<stap>;  itar«<itar>  ) 
:STEP.LOOP 
:EXIT 


•and 

. sDECK  chkconv 
•procadura  CHKCONV 


[XQT  VEC 


STEP 
ITER 

DISPLACEMENT.INC 
RESIDUAL. FORCE 
LOAD. INC 
TOL.E 
MAX.ITERS 
CONVERGENCEaCONVERGENCE 
DIVERGENCE  =DIVERGENCE 
ralaxatlon  a a ) 


Input 


. . Initialize 

•def/i  [CONVERGENCE]  » <FALSE> 
•daf/i  [DIVERGENCE]  « <FALSE> 

•if  < [ITER]  /gt  1 > /than 

•daf/dl2.4  ERR.E.I  as  <ERR.E.IP1> 
•andif 


. • Coaputa  Currant  Incraaantal  Enargy  Nora 

DOT  [RESIDUAL.FORCE]  • [DISPLACEMENT.INC]  ->  INC. 
•if  < [ITER]  /la  1 > /than 

• if  < <ABS«INC.E_IP1>)>  /gt  <REF_E>  > /than 
•daf/dl2.4  REF.E  « <ABS«INC.E.IP1»> 

•andif 

•daf/f7.2  [RELAXATION]  ==  1.0 

•daf/i  nua.divargas  as  o 
•andif 

. . Coaputa  Error  Noras 

•daf/dl2.4  ERR.E.RAW  ==  < <INC.E.IP1>/<REF.E>  > 
*daf/d!2.4  ERR.E.IPl  ==  < <ABS«ERA.E_RAV»>~  .6 


output 


E.IP1 
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. . Check  tor  displacement  convergence 

•ii  < <m_E_IPl>  /le  [TOL.E]  > /then 

. . . Stop  Converged 

•DEF/I  [CONVERGENCE]  «*  <TRUE> 

•jump  to  sBOTTQM.LINE 
•ondil 

•il  < [ITER]  /lo  1 > :B0TT0M.LINE 

. . . Stop  Not  Convorgod;  Chock  lor  Divorgonco 

•IF  < <ERR_E_IP1>/<ERR_E.I>  /GT  1.0  > /THEN 
•dol  nun. diverges  **  < <nua.divergos>+l  > 

•il  «num.diverges>  /gt  1 > /thon 
•DEF/I  [DIVERGENCE]  ««  <TRUE> 

•ENDIF 
•END IF 

. . Soloct  Roloxation  (i.e.,  line-search)  Parameter:  s 

•dol/17.2  Is  * < [relaxation] > 

•il  < «err.o.ipl>/<err.e.i»  /gt  .5  > /then 

COMP  <max_nod>  <max.dol>  [DISPLACEMENT.INC]  ->  nax.d.ipl 
•il  < <max.d.ipl>*<max.d.i>  /It  0 > /then 
•dol  Is  » < <ls>-.3  > 

•dol  Is  » <MAX(<ls>;.4)> 

•olsoil  < <ABS(<nax.d.ipl>)>  /It  <ABS(<aax_d_i>)>  > /thon 
•dol  Is  « < <ls>+.4  > 

•dol  Is  * <MIN«ls>;2.)> 

•olso 

•dol  Is  * 1.0 
•ondil 
•ondil 

•dol/17.2  [relaxation]  **  <ls> 

: BOTTOM. LINE 

NORM/M AX  [DISPLACEMENT. INC]  ->  max.d.i  aax.nod  aax.dol 

NORM/MAX  [RES I DUAL. FORCE]  ->  nax.l.i  aax.nod.l  nax.dol.l 

•il  < [ITER]  /LE  1 > /then 

•dol/ol2.4  load.lactor  * <lan.npl.i> 

•also 

*dol/ol2.4  load.lactor  * <lan.npl.ipl> 

•ondil 

•remark 

•remark  

•remark  ITER* [ITER]  LD=<load.lactor>  ERR=<err.o.ipl>  REF=<rol.o> 
•remark  delta. d_aax=<aax.d.i>  node=<aax.nod>  dol*<aax.dol> 

•remark  rosid_l.max*<max.l.i>  node=<max_nod_l>  dol><max.dol.l> 

•remark 
•remark 

•il  < <DEBUG>  > /then 

•print  1,  [DISPLACEMENT.INC] 
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•print  1,  [RESIDUAL. FORCE] 
•endif 

♦END 

. =DECK  DEFNS 

♦procedure  DEFNS  ( step;  iter  ) 


. Purpose:  Define  basic  macro. symbols  for  NLSTATIC3  procedure 


*def/i  npl  = [step] 

♦def/i  n = < <npl>-l  > 

♦def/i  wal  = < <n>-l  > 

♦def/i  nm2  = < <n>-2  > 


♦if  < [iter]  /eq  0 > /then  . run  initialization 

♦def/i  NS.ldi  ==  1 

♦def/i  NOH.ldi  ==  3 

♦def/i  iset  ==  1 

♦def/i  icon  *=  1 


♦def/a  f .spec  « APPL . FORC . <iset> . <icon> 

♦def/a  d.spec  ==  APPL. HOTI . <iset> . <icon> 


. Check  for  Prescribed  Force/Displacement  Loading 


♦find  dataset  <NS_ldi>  <f_spec>  /seq=ids 
♦if  < <ids>  /gt  0 > /then 

♦Remark  Note:  Applied  forces  dataset  <f.spec>,  will  be  used 
♦def/i  spec.f orce.f lag  ==  <true> 

♦ else 

♦def/i  spec.f orce.f lag  ==  <false> 

•endif 

♦find  dataset  <NS.ldi>  <d_spec>  /seq=ids 
♦if  < <ids>  /gt  0 > /then 

♦Remark  Note:  Specified  displacement  dataset  <d.spec>  vill  be  used 
♦def/i  spec.disp.f lag  ==  <true> 

•else 

•def/i  spec.disp.f lag  ==  <false> 

•endif 

•if  < <<spec_f orce.f lag>/eq  0>  /and  <<spec_disp.f lag>/eq  0>>  /then 
♦remark  ; ♦remark  Procedure  stopped:  no  loads  defined 
•endif 

•def/i  live. load.f lag  ==  <false> 


•def/a  d.ext 
♦def/a  f.ext 
•def/a  f.int 
•def/a  f.T 
•def/a  R.npl.i 
♦def/a  R.npl.ipl 
•def/a  d.inc.i 
•def/a  d.inc.ipl 
•def/a  delta.T 
♦def/a  delta.B 
•def/a  delta. S 
•def/a  delta 


EXT.DISP 
EXT. FORC 
INT. FORC 
TAN. FORC 
RES. FORC 
RES. FORC 
INC.DISP 
INC.DISP 
HAT.DISI 
BAR. DIS1 
STR.DISI 
TOT.DISI 
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•daf/a  K.III  **  ASM.STIF 

*d«f/a  K_fac  ••  FiC.STIF 

•daf/a  K_I  ••  COL.STIF.1.1 

•daf/a  Dalta.I  *=  STF.DISI 

•daf/i  ndaf  ==  0 

•dal/a  d.activa  « ACT.DISI 

Ratrlava  Control  Paraaatari  Iron  DATA.BASE 

•if  < [atap]  /aq  1 > /than 
•daf/i  sign.dat  »«  1 

•daf/i  load.dir  ■■  1 

•daf/d  laa.n  as  o.O 

•daf/d  laa.nal  as  o.O 

•daf/d  laa_nn2  as  o.O 

•daf/d  path_inc_n  as  o.O 

•daf/d  path_inc_nnl  ==  0.0 

•daf/d  raf_a  ==  o.O 

•Raaark  STARTING  PARAMETERS  INITIALIZED. 

•alsa 

•opan  <N0M_ldi>  <N0M.DB> 

•find  dataaat  <noa_ldi>  <noa_da>  /saq=noa_idi 

•g2a  /nanasalan.n  /typa«d  <noa_ldi>  <noa_ids>  L0AD.<n> 

•g2n  /nanaaaiaa.nal  /type=d  <noa_ldi>  <no«_ids>  L0AD.<nal> 

•g2n  /nanaaalan_na2  /typa=d  <noa_ldi>  <noa_ida>  L0AD.<nn2> 

•g2n  / naaasspath. inc.n  /typa=d  <noa_ldi>  <noa_ida>  PATH_INC.<n> 

•g2*  / naaaa»path_ inc.na 1 /typa=d  <noa_ldi>  <noa_id«>  PATH_INC.<nal> 
•g2n  /naa*==iign_det_n  /typaal  <noa.ldi>  <noa.ida>  SIGN.DET.<n> 

•g2n  /nana==load_dir_n  /typaal  <noa_ldi>  <noa_ida>  L0AD_DIR.<n> 

•g2n  /nanaaaraf.a  /type=d  <noa_ldi>  <noa_ids>  REF_ERR.<n> 

•g2n  /nanaaandaf  /type=i  <noa_ldi>  <noa_ids>  NDEF 
•g2*  /naaaaafd  /typa=i  <noa_ldi>  <noa_id»>  FD 
•cloaa  <N0M_ldi> 

•Raaark 

•raaark 

•raaark 

•Raaark  RE-START  PARAMETERS: 

•Raaark  LOAD.FACTORS  (n,n-i ,n-2)  = <iaa_n>,  <laa_nal>,  <laa_nn2> 

•Raaark  PATH.INCREMS  (nf  nal)  = <path_inc_n>,  <path_inc_nal> 

•Raaark  SIGN.DET  (n)  = <*ign_dat_n> 

•Raaark  LOAD.DIR  (n)  = <load_dir_n> 

•raaark 

•raaark 

•andif 

•andif 

• Oaf ina  Global  Dataaata  for  Upcoaing  Stop 

•daf/a  d_na2  » T0T.DISP.<na2> 

•daf/a  d_nal  aa  TOT.DISP.<nal> 

•daf/a  d_n  sa  T0T.DISP.<n> 

•daf/a  d.npl.i  as  TOT.DISP.<npi> 

•daf/a  d_npl_ipi  sa  TOT.DISP.<npl> 
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♦del/a  T.n  *=  T0T.R0TN.<n> 

♦del/a  T.npl.i  *=  TOT.ROTN.<npl> 

♦del/a  T.npl.ipl  « TOT.ROTN.<npl> 

•end 

. xDECK  EXTE1P 

♦procedure  EXTRAP  ( dx.npl;  dx.n;  dx.nml;  cx.n;  cx.xual;  cx_n*2  ) 

♦del  dx.npl  * [dx.npl] 

♦del  dx.n  = [dx_n] 

♦del  dx.nml  * [dx.nml] 

♦dal  x.nml  * <dx_nml> 

♦dal  x.n  * < <x_nml>+<dx_n>  > 

♦dal  x.npl  * < <x_n>**<dx_npl>  > 

♦dal  s_nml  « < <x_npl>-<x_nml>  > 

♦dal  *_n  « < <x_npl>-<x_n>  > 

♦dal  [cx.n]  *=  < <x_npl>*<s_nml>/«x_n>e<dx.n»  > 

♦del  [cx.nal]  **  < -1 . *<x_npl>*<s_n>/«x_nml>e<dx_n»  > 

♦dal  [cx_nm2]  xs  < <s_nml>*<s_n>/«x_nml>e<x_n»  > 

♦ and 

. =DECK  FACT.STIFF 
♦procedure  FACT.STIFF 

[XQT  IN?  . Factor  stillness 

RESET  CON  * 1 
RESET  LKA  * 7168 
RESET  DZERO  * l.E-10 
RESET  SPDP  * <csm_precision> 

♦remark 

♦Remark  MATRIX  BEING  FACTORED  (in  Double  Precision). 

. Deline  lactored-matrix  parameters  as  global  aacrosymbols 
[XQT  VEC 

♦remark  Determinant  = <coel.det>  ♦ 10  <expl0_det> 

♦remark  Rag*  roots  = <num_neg> 

♦del/i  § ign.de t **  <SIGN(1 . ;<coeI_det>)> 

♦remark  Sign  ol  dat  = <sign„det> 

♦remark 

♦END 

. xDECK  FORM.STIFF 

♦procedure  FQRM.STIFF  ( DISPLACEMENT  ; — 

ROTATION  ; — 

STIFFNESS  ) . output 

♦Remark  FORMING  NEW  STIFFNESS  MATRIX 


♦call  ES  ( 


[XQT  K 

♦END 


lunction 

es.nl.geom 

es.coro 

es.dis.ds 

es.rot.ds 


= ’FORM  STIFFNESS/TANG’  ; — 

X <NL.GE0M>  ; — 

x <C0R0TATI0N>  ; — 

x [DISPLACEMENT]  ; — 

x [ROTATION]  ) 

. Translorm/assemble  stillness 


. xDECK  INITIAL 


♦procedure  INITIAL 


. CLEAR  INITIAL  DISPLACEMENTS  AND  ROTATIONS  ( n = 0 ) 
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*g2m  /naa.sparaa.t.r.  /typ.=i  /aaxn*18  <HS_LDI>  JDFl.BTiB.1.8  DATA . 1 
VNODES  > PARAMETERS  [l]> 

•d.f/i  NDOF  > <P AEANETERS [2] > 

*R«iirk  Problem  Diitniiouii  K.nodfts  s <nNGBE3>  , n.uOiu  = <NBGF> 
r [XQT  VEC 

INIT.DOF  CON. .<icon>  ->  DOF.TABL 
*Rutrk  DOF  TABLE  initialized. 

INIT.VEC  <d.inc.ipl>  <ND0F>  BY  <NN0DES>  . Zaroiza  translations 

INIT.VEC  <K.I>  <ND0F>  BY  <NN0DES>  . Zaroiza  translations 

INIT.VEC  <Delta.I>  <ND0F>  BY  <NN0DES>  . Zaroiza  translations 

INIT.VEC  <d.active>  <NDOF>  BY  <NN0DES>  . Zaroiza  translations 

INIT.VEC  <d.n>  <NDOF>  BY  <NN0DES>  . Zaroiza  translations 

INIT.VEC  <T.n>  3 BY  <NNODES>  . Zaroiza  rotation  psaudovactors 

•Remark  Displacanants  initialized. 

•if  < <spec.disp.f lag>  > /than 

<d.ext>  <-  <d.spec>  . for  VEC 

NORM  <d.ext>  ->  norn.d 

•if  < <non.d>  /aq  0.  > /then 

•Remark 

•Remark  NOTE:  Specified  displacanants  are  identically  zero. 

•Remark 

•andif 

•copy  <NS.ldi>  = <NS.ldi>,  <d_spac> 

<d.spec>  <-  0 . for  SSOL 

•Raaark  Specified  displacanants  saved  in  <d_ext>. 

•andif 

•if  <<spac.forca.flag>>  /than 

<F.ext>  <-  <F.spac>  . for  VEC 

NORM  <f.axt>  ->  norm.f 
•if  < <nom.f>  /aq  0.  > /than 
•Remark 

•Remark  NOTE:  External  forces  are  identically  zero. 

•Remark 

•andif  * 

•Remark  External  force  vector  saved  in  <F.ext>. 

•copy  <NS.ldi>  * <NS.ldi>,  <F_spac>  . for  SSOL 

•also 

INIT.VEC  <F.axt>  <ND0F>  BY  <NN0DES> 

INIT.VEC  <F.spac>  <ND0F>  BY  <NN0DES>  /single. precis ion  . for  SSOL 
•andif 

•Remark  Right -hand- side  vector  zeroized  (in  <F.spec>). 

INIT.VEC  <F.int>  <ND0F>  BY  <NN0DES> 

•Remark  Internal  force  vector  zeroized  (in  <F.int>). 

. INITIALIZE  ELEMENT  CONFIGURATION 

[XQT  E 
[XQT  RSEQ 

reset  method=0,maxcon=35 
[XQT  TOPO 

reset  maxsub  = 40000 tlran=8 196 
♦call  ES  ( function  = 1 INITIALIZE*  ) 
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•Remark  Element  configuration  initialized. 


•end 

. aDECK  POSTEES 
•procedure  POSTEES  ( atop  ) 

[XQT  ¥EC 

♦find  dataset  <N0M_LDI>  <NQMJ)S>  /seq=post_ids 
•if  < <post_ids>  /la  0 > /then 

•put  dataset  <N0M.LDI>  <N0H_DS>  /mrat=2000  /seq=post_ids 
•endif 


. Sava  selacted  displacements  on  noainal  data-base 


•daf/a  dof .names  » U,  ¥,  V,  RU,  R¥,  EW 


•do  tisal  « 1,  <N_SELECT> 

•def/i  node  * <SEL.NODES[<$isel>]> 

•daf/i  dof  » <SEL.DOFS[<$isel>]> 

•def/a  dof.naae  = <dof .names [<dof >]> 

COMPONENT  <noda>  <dof>  TOT. DISP. [step]  ->  DISP 
•daf /a  recd.naae  s DISP.<dof_name>.<node>. [step] 

•Remark  <recd.naae>  = <DISP> 

*a2g  /naaasdisp  /type=d  <noa_ldi>  <post_ids>  <rocd_naae> 
Sava  Eaaction  Forces  for  Currant  Step 


EEAC . FOAC . [step]  <-  INT . FOEC 
•if  < [step]  /aq  0 > /then 
EEAC  .FOEC  .0  <-  0.0 

•endif 

• if  < <spec_disp_flag>  > /then 

COMPONENT  <node>  <dof>  EEAC. FOEC. [step]  ->  FOECE 
•daf/a  recd.naae  * FORCE.<dof.naae>.<node> . [step] 

•Eeaark  <recd_name>  = <F0ECE> 

•■2g  /naae*force  /type=d  <noa_ldi>  <post_ids>  <recd.name> 

•endif 

•anddo 

•and 

. sDECK  POSTSTEP 

•procedure  POSTSTEP  ( step;  iter  ) 

•Eaaark  

•Eaaark  STEP  [step]  SUMMARY  : 

•Eaaark  

•Eaaark  Load  Factor  <laa_npl.ipl> 

•Eaaark  Load  Direction  <load_dir> 

•Eaaark  Stiffness  determinant  <coef _det>  • 10  <expl0.det> 

•Eeaark  Number  of  negative  roots  <num_neg> 

•Remark  Path_length_ increment  <path.inc> 

•Remark  Relative  energy.error  <err_e.ipl> 

•Remark  Number  of  Iterations  <nua_iters> 

•Remark  Number  of  Step  Cuts  «pass>-l> 

•Eeaark  Total  Number  of  Iterations  <tot.iters> 

•Remark  


3.10-  28  CSM  Testbed  Procedures  Manual 


Revised  5/24/90 


Solution  Procedures 


NL‘STATIC‘2 


•open  <NQM_ldi>  <NQM.DB> 

•if  < [step]  /eq  1 > /then 
•cell  POSTRES  ( step  * 0 ) 

•def/d  load.0*0. 

•*2g  /naae*load.O  /ty»e*d  <NOM_LDI>  <HOM_DS>  LOAD, 0:0 
•endif 

•cell  POSTEES  ( step* [step]  ) 

•find  dateset  <N0M_LDI>  <N0M.DS>  /seq=noa.ids 

*a2g  /naae*laa_npl.ipl  /type*d  <noa.ldi>  <noa.ids>  LOAD. [STEP] 

•a2g  /naae*path.inc  /type*d  <noa.ldi>  <noa.idi>  PATH. INC. [STEP] 

•■2g  /naae*err.e.ipl  /type*d  <noa.ldi>  <noa.ids>  EEEOE. [STEP] 

•■2g  /naae*ref.e  /type=d  <noa.ldi>  <noa.ids>  REF. ERR. [STEP] 

•■2g  /name = load. dir  /type*i  <noa_ldi>  <noa.ids>  LOAD. DIE. [STEP] 

•■2g  /naae*sign.det  /type*!  <noa_ldi>  <noa_ids>  SIGN.DET. [STEP] 

•■2g  /naae*coef_det  /type=d  <noa.ldi>  <non_ids>  COEF.DET. [STEP] 

•■2g  /naae*expl0.det  /type*!  <noa.ldi>  <noa_ids>  EIP10.DET. [STEP] 

•■2g  /naae*nua_neg  /type*d  <noa_ldi>  <noa.ids>  NEG. ROOTS . [STEP] 

•■2g  /name *nua. iters  /type*!  <noa.ldi>  <noa_id>>  NUM. I TEES. [STEP] 

*»2g  /naae*tot_ iters  /type*!  <non_ldi>  <noa_ids>  TOT.ITERS. [STEP] 

•def/i  passnl  * «pass>-l> 

*m2g  /naae*passal  /type*!  <noa.ldi>  <noa.ids>  NUM.CUTS . [STEP]  . cgl,  7/26/88 
*a2g  /name=ndef  /type*!  <noa.ldi>  <noa.ids>  NDEF 
• if  «ndef>  /eq  0>  /then 
•def/i  fd**0 


•endif 

•a2g  /naae*fd  /type*i  <noa.ldi>  <noa.ids>  FD 
•close  <NQM.ldi> 

•end 


. =DECK  RESIDUAL 

•procedure  RESIDUAL  ( STEP=1;  ITEE=1 

DISPLACEMENT 
ROTATION 
LOAD.FACTOR 
SPECIFIED. DISP 
INTEENAL.FORCE 
EXTERNAL. FORCE 
EESIDUAL.FOECE  ) 


. input 


output 

i 


[XQT  TEC 

[INTEENAL.FORCE]  <-  0. 


•call  ES  ( function 

es.nl.geoa 

es.coro 

es.dis.ds 

es.rot.ds 

es.frc.ds 


* ’FORM  FORCE/INT * ; — 

* <NL.GE0M>  ; — 

* <C0R0TATI0N>  ; — 

* [DISPLACEMENT]  ; — 

* [ROTATION]  ; — 

* [INTEENAL.FORCE]  ) 


[XQT  TEC 

[EESIDUAL.FOECE]  <-  [load.factor]  [EXTERNAL. FORCE]  - [INTEENAL.FORCE] 


•END 


. *DECK  SOLTE 

•procedure  SOLTE  ( RHS  ; SOLN  ) 


. Copy  Right -Hand-Side  Tector  to  Expected  SPAR  (Single  Precision)  Dataset 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


3.10-  29 


Solution  Procedures 


NL'STATIC'2 


ti.coro 

es.dis.ds 


es_rot.de 

[XQT  K 
[XQT  IK? 

RESET  CON  * 1 
RESET  LRA  * 7168 
RESET  DZERO  * l.E-10 


« <C0R0TATI0N>  ; — 

* [DISPLACEMENT]  ; — 

* [ROTATION]  ) 

. Trans fora /assemble  stiffness 
. Factor  stiffness 


RESET  SPDP  = <csm_precision> 

•reaark 

•Remark  MATRIX  BEING  FACTORED  (in  Double  Precision). 

. Define  factored-aatrix  parameters  as  global  aacrosyabols 
[XQT  ?EC 

•ran ark  Determinant  * <coef_det>  * 10  * <explO_det> 

•reaark  Neg.  roots  « <num.neg> 

*def/i  s ign.de t =*  <SIGN(1 . ;<coef _det>)> 

•reaark  Sign  of  det  * <* ign.de t> 

•remark 

•END 

. -DECK  TANDIS 

•procedure  TANDIS  ( step;  iter;  displacement  ; rotation  ; — 

load.f actor  ; aax.load  ; external.! orce;  — 

specif ied.disp;  internal.! orce;  — 
tangent. force  ; tangent. disp  ) 

•if  < <spec.disp.flag>  > /then  . Load  standard  spec.disp  dataset 
[XQT  TEC 

SPECIFY  1.0  [specif ied.disp]  ->  <d.spec> 

•endif 


•call  SOLTE  ( RES  * [external.! orce] ; SOLN  3 [tangent. disp]  ) 

•if  < <spec.disp.flag>  > /then  . Clear  standard  spec.disp  dataset 
[XQT  TEC 

<d.spec>  <-  0.0 

•endif 

•end 


. -DECK  TWO.BT.TVO 
•procedure  TWO.BT.TWO  ( FREE  ) 


• . • Coapute  2x2  system  coefficients 
[XQT  TEC 

. . . A.22  is  used  for  both  ordinary  and  advanced  RIKS 

DOT  <d_inc.i>  • <delta.T>  ->  A.22 
•def/d  A.22  =*  < 2.0  • <A.22» 

e 

. . . The  remainder  of  Procedure  is  invoked  only  for  Advanced  Riks 

e 

•if  <[FREE]  /gt  0>  /then 

COMPONENT  <ndef>  <fd>  <K_I>  ->  K.II 
COMPONENT  <ndef>  <fd>  <f_ext>  ->  fe.I 
COMPONENT  <ndef>  <fd>  <d.inc.i>  ->  D.II 
DOT  <K.I>  * <delta.I>  ->  K.DOT.d.I 
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DOT  <K_I>  • <dalta_T>  ->  K.DOT.T 

DOT  <d_inc_i>  • <dalta_I>  ->  dd.DOT.d.I 

•dal/d  1.11  *•  «K.II>  - <K_D0T_d_I» 

•dai/d  1.12  •*  «K_D0T.T>  - <fa_I» 

*ii  «»pac_diap_flag»/than 

DOT  <K_I>  • <d_axt>  ->  K.DOT.d.axt 
•dal/d  1.12  ••  «1_12>  - <K_D0T_d_axt» 
•andil 

•dal/d  1.21  ■*  < 2.0  *«D_II>  - <dd_D0T_d_I»  > 
•andil 

•and 
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3.11  Procedure  NL_DYNAMIC_1 

3.11.1  GENERAL  DESCRIPTION 

Procedure  NL_DYNAMIC_1,  written  by  C.  C.  Rankin  and  B.  Nour-Omid  of  Lockheed 
Palo  Alto  Research  Laboratory,  performs  nonlinear  transient  analysis  using  a one- step, 
self-starting,  implicit  integration  algorithm  containing  adjustable  parameters.  The  non- 
linear system  is  solved  using  a modified  Newton/Raphson  incremental/iterative  solution 
sequence.  Like  NL_STATIC_1,  procedure  NLJDYNAMIC-l  relies  on  the  Generic  Element 
Processor  (*.e.,  structural  element  processors,  ESt)  and  hence  has  a corotational  option  for 
geometric  nonlinearity  that  enables  arbitrarily  large  rotations. 

Procedure  NLJDYNAMIC_1  solves  the  transient  system 

Mii+f»  = r‘  (3.11-1) 

Here  M is  the  mass  matrix,  u is  the  displacement,  and  dots  over  quantities  refer  to  differen- 
tiation with  respect  to  time.  These  equations  are  discretized  over  time  using  the  following 
relations  involving  two  parameters  6 and  a: 

Man+0  + (1  + a)rnt(dn+e)  - af*nt(dn)  = f#9  (3.11  - 2) 

where  dn+ $ and  an_j-0  are  the  approximations  to  the  displacement  and  acceleration  at  time 
(n  + 0)A<,  and  where  Wilson’s  0 interpolation  parameter  is  used  to  obtain  the  desired 
acceleration  according  to 

an+*  = (1  - 9) an  + 0an+1  (3.11  - 3) 

Velocity  v and  acceleration  a are  related  to  the  displacements  at  the  point  n + 0 by 

vn+ e = vn  + 0At[(l  - 7)an  + 7a n+*] 

,r  1 (3.11-4) 

dn+0  = d„  + 0Afvn  + (0A<)2[(-  - /?)an  -f-  /3&n+0 ] 

where  we  have  introduced  the  two  standard  Newmark  parameters  /?  and  7 as  the  last  two 
parameters  in  our  system.  The  resulting  system  to  be  solved  is 

Mdn+*  + (9 At)2 13(1  + a)f*nt(dn+0)  -fn+*  = 0 (8) 

where  the  quantity  fn+0  is  known  from  the  last  converged  time  step  (see  Section  4.3.9.2. 
for  a complete  derivation  of  equations  and  definition  of  symbols). 

NL-DYNAMIC-l  is  designed  to  solve  any  well  posed  initial  value  transient  analysis  prob- 
lem with  non- negative  mass.  This  includes  problems  with  initial  velocity  and/or  initial 
displacement,  as  well  as  a generalized  imposed  external  forcing  with  either  built-in  or 
user-suppled  time  dependence.  Currently,  the  procedure  uses  the  same  external  loading 
as  NL_STATIC_1,  with  a multiplier  defined  by  a force-time  procedure.  The  built-in  pro- 
cedures are  described  in  Sections  4.3.3.7  and  4. 3. 3.8. 
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Since  (66)  is  a nonlinear  system  similar  to  (1),  much  of  what  is  in  NL_STATIC_1  ap- 
plies to  NL-DYNAMIC.l.  In  particular,  we  mention  the  solution  of  a banded  system 
with  similar  structure  to  the  stiffness  matrix,  identical  handling  of  large  rotations,  similar 
procedures  for  archiving  results  of  solutions  and  retrieving  restart  information,  and  very 
similar  convergence  and  stepsize  adjustment  procedures.  We  shall  henceforth  concentrate 
on  the  differences  between  the  static  and  dynamic  algorithms,  with  particular  emphasis  on 
operations  involving  the  mass,  time  step,  and  the  four  adjustable  integration  parameters. 
In  some  respects,  NL_DYNAMIC_1  is  simpler  than  its  static  analogues,  since  no  arclength 
constraint  is  needed  for  a positive-definite  mass/ stiffness  system. 

3.11.2  PROCEDURE  USAGE 

Procedure  NL_DYNAMIC_1  may  be  invoked  by  the  *call  directive: 


♦call  WL-DYNAMIC-l  ( argl  = vail;  arg2  = va!2;  ...) 

where  arg i are  argument  names  and  vali  are  the  corresponding  values  you  wish  to  give 
them.  The  following  are  valid  arguments  for  NL_DYNAMIC_1;  note  that  those  without 
default  values  are  mandatory,  while  the  others  are  optional. 


Areument 

BEG-STEP 

MAX-STEPS 

BEG.TIME 

MAX-TIME 

DEL-TIME 

Default  Value 

Meaning 

Starting  step  number  (>0) 
Maximum  steps  to  compute 
Problem  starting  time 
Upper-bound  on  problem  time 
Beginning  time  step 

INT-PARS 

1.,0.,.25,.5 

Time  integration  parameters 

LOAD-STIFF 

<false> 

Include  load  stiffness 

FT.PROC 

FT-ZERO 

Forcing  procedure 

FT.ARGS 

0. 

Parameter  array  for  FT-PROC 

COROTATION 

1 

Corotational  Update  Option 

DESJTERS 

4 

Number  of  iterations  per  step  desired 

EXTRAPOLATE 

<true> 

Perform  quadratic  extrapolation  of  solution 

FAC-STEPS 

1 

Steps_per_refactoring 

MAXJTERS 

9 

Maximum  iterations  per  step 

MAX-CUTS 

3 

Maximum  number  of  successive  step  cuts 

NL.GEOM 

2 

Geometric  Nonlinearity  Level  (1  or  2) 

NOMINAL.DB 

NOMINAL.GAL 

Results  database  file 

NOMINAL.DS  RESPONSE.HISTORY  Results  dataset 

N.SELECT 

0 

Number  of  nodes  for  selected  disp.  output 

SEL.NODES 

0 

List  of  nodes  for  selected  output 

SEL.DOFS 

0 

Corresponding  list  of  nodal  freedoms  (1-6) 

TOLJE 

l.E-3 

Relative  error  tolerance  in  energy  norm 
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In  the  above  definitions,  the  term  step  refers  to  a time  step.  The  total  response  is  au- 
tomatically subdivided  into  time  steps,  with  the  starting  time  prescribed  by  the  User  — 
using  BEG.TIME.  The  initial  time  step  is  set  by  DEL-TIME,  and  held  constant  unless 
trouble  occurs.  If  convergence  is  difficult,  the  time  step  will  be  cut,  and  a new  initial  value 
problem  will  be  started  at  the  last  converged  solution. 

3.11.3  ARGUMENT  GLOSSARY 

3.11.3.1  BEGJSTEP 

This  argument  defines  the  number  of  the  first  step  to  be  computed  in  a given  nonlinear 
analysis  interval.  It  is  important  primarily  for  analysis  re-starts.  Initially,  BEG-STEP 
should  be  set  to  1.  To  continue  an  analysis  in  a subsequent  run,  after  having  computed 
and  saved  “n”  steps  in  the  previous  run,  one  would  typically  set  BEG-STEP  equal  to 
“n+1”.  For  example,  if  the  10th  step  was  successfully  completed  in  the  first  run,  then 
it  could  be  continued  in  a second  run  by  setting  BEG-STEP  = 11.  However,  it  is  not 
necessary  for  BEG-STEP  to  be  larger  than  any  previously  computed  step.  That  is,  you 
may  re-compute  a sequence  of  steps  by  setting  BEG-STEP  to  the  number  of  the  first  step  to 
be  re-computed.  The  procedure  will  automatically  use  the  step  that  immediately  precedes 
BEG-STEP  BEG-STEP-l)  to  obtain  the  necessary  initial  displacements,  velocities, 

and  accelerations. 

3.11.3.2  BEG.TIME 

The  starting  problem  time.  For  the  initial  run,  the  value  of  this  parameter  is  usually  set 
to  zero. 

3.11.3.3  COROTATION  (default  = <true>l 

Corotational  update  switch  for  large-rotation  problems.  This  switch  should  be  set  to 
<true>  when  the  model  involves  finite  elements  that  require  corotation  for  geometric 
nonlinearity.  This  is  true  of  most  beam  and  shell  elements,  and  may  be  true  for  some  solid 
(3D)  elements  used  to  model  shell  structures.  Consult  the  appropriate  element  Processor 
(ESt)  section  in  the  Testbed  User’s  Manual  for  specific  guidelines. 

3.11.3.4  DEBUG  (default  = <false>) 

Procedure  debug  switch.  This  switch  should  only  be  turned  on  to  obtain  additional  diag- 
nostic printout  for  procedure  debugging. 

3.11.3.5  DEL-TIME 

The  initial  time  step.  If  all  goes  well  with  the  integration,  this  will  be  the  time  increment 
throughout  the  analysis.  For  restart,  it  is  possible  to  use  the  time  increment  that  was  in 
force  for  the  previous  run.  For  restart  only , input  zero  to  cause  the  procedure  to  read  in 
and  use  the  previous  DEL-TIME. 
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3.11.3.6  DESJTERS  (default  = 41 

Desired  number  of  iterations  allowed  for  convergence  at  a given  load  step.  This  parameter 
is  used  to  adaptively  adjust  the  arclength  increment  from  one  load  step  to  the  next,  by 
comparing  DESJTERS  with  the  actual  number  of  iterations  required  for  convergence  at 
the  last  step. 


3.11.3.7  FTJPROC  (default  = FT-ZERO) 

FT .P ROC  is  the  name  of  a procedure  that  will  obtain  the  load  factor  (A)  for  the  time- 
dependent  forcing  function.  For  applied  force  loading,  this  factor  is  multiplied  by  the 
reference  applied  force  vector  to  obtain  the  current  load  vector,  i.e., 


f?xt  = A(<)f*x< 


where  ?***  is  the  reference  applied  force  vector  stored  in  dataset  APPL.FORC.l.  For 
applied  displacement  loading,  the  starting  load  factor  is  applied  to  the  reference  applied 
displacement  vector,  which  is  then  used  to  compute  the  initial  internal  force  vector,  i.e., 


M 


f*nt[A(t)dext] 


where  d*** 


is  the  reference  applied  displacement  vector  stored  in  dataset  APPL.M0TI.1. 


The  user  can  supply  any  procedure  he  desires  for  FT_PROC.  If  this  is  the  case,  FTJPROC 
is  the  name  of  that  procedure.  FT.PROC  has  three  arguments  of  its  own.  T is  the  current 
problem  time,  FT.ARGS  is  an  array  of  up  to  six  scalars,  and  F_MAC  is  the  name  of  the 
macrosymbol  (set  by  NL_DYNAMIC_1)  to  contain  A(t). 

If  the  user  wishes  to  use  the  FT  procedures  supplied  here,  he  has  four  choices,  as  illustrated 
in  Fig.  4.3-1. 


FTJZERO 

FT_LIN 

FTJSIN 

FT.EXP 


This  is  the  default  option,  which  means  that  there  will  be  no  external  forcing. 
Piecewise  linear  forcing  function. 

Sinusoidal  forcing  function. 

Exponential  decay. 


3.11.3.8  FT-ARGS 

These  are  the  arguments  to  either  the  user-supplied  forcing  function,  or  required  for 
FTXIN,  FT.SIN,  or  FT-EXP.  For  these  last  three  procedures  (supplied  here),  we  offer 
the  same  options  that  are  supplied  with  the  code  Structural  Analysis  of  General  Shells 
(STAGS).  We  have  reproduced  the  forcing  function  diagram  from  the  STAGS  manual, 
which  here  appears  as  Fig.  4.3-1.  In  this  figure,  PA  is  the  function  A(<),  TIME  is  in  units 
of  problem  time,  and  CA1  through  CA6  are  FT_ARGS[1:6],  respectively.  A summary  for 
each  each  case  follows: 

For  FTXIN  (piecewise  linear  time  dependence),  the  array  is  as  follows: 
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FT_ARGS[1]  Maximum  load  factor  (CA1  in  figure). 

FT_ARGS[2]  Delay  time  before  applied  load  ramps  up  (CA2).  Can  be  zero. 

FT_ARGS[3]  Time  at  which  load  reaches  maximum  (CA3).  Can  be  equal  to  FT_ARGS[2]. 

FT_ARGS[4]  Time  at  which  load  begins  to  drop  (CA4).  Can  be  equal  to  FT_ARGS[3]  if 
FT_ARGS[3]  is  not  equal  to  FT_ARGS[2]. 

FT_ARGS[5]  Time  at  which  load  drops  (CA5). 

FT_ARGS[3:5]  can  be  safely  set  to  larger  than  MAX_TIME  if  that  is  what  the  user  wants. 

For  FT_SIN  (sinusoidal  time  dependence),  the  array  is  as  follows: 

FT_ARGS[1]  Peak  height  of  sine  wave  (see  Fig.  4.3-1,  CAl) 

FT_ARGS[2]  Load  offset  for  the  sine  wave  function  (CA2).  If  zero,  the  sine  wave  will 
oscillate  to  plus/minus  FT_ARGS[1]. 

FT_ARGS[3]  Half  wavelength  (CA3). 

FT_ARGS[4]  Problem  time  to  first  maximum  load  (CA4). 

FT_ARGS[5]  Delay  time  to  imposition  of  load  (CA5). 

FT_ARGS[6]  Time  at  which  all  loading  will  terminate  (can  be  a large  number),  or  CA6  in 
Fig.  4.3-1. 

For  FT_EXP  (Exponential  decay),  the  array  is  as  follows: 

FT_ARGS[1]  Peak  height  of  exponential  (see  Fig.  4.3-1,  CAl) 

FT_ARGS[2]  Delay  time  before  any  load  is  imposed  (CA2).  Can  be  zero. 

FT_ARGS[3]  Half  life  time  of  exponential  decay. 

FT_ARGS[4]  This  argument  is  not  used.  In  the  Fig.  4.3-1,  CA4  must  be  half  CAl.  If  this 
is  not  the  case,  then  FT_ARGS[3]  should  be  recomputed. 
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Figure  4.3-1  Load  Factor  Histories 
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3.11.3.9  INx-FARS  (default— 1..0...25..5) 

The  values  contained  in  this  array  set  the  characteristics  of  the  time  integrator. 
INT_PARS[1]  is  Wilson’s  6 interpolator  (see  Theory,  Section  4.3.9),  INTJPARS[2]  is  a, 
and  INT_PARS[3:4j  are  the  Newmark  {3  and  7 parameters,  respectively.  A sophisticated 
user  can  reset  these  parameters  for  special  integrator  performance  characteristics.  Unless 
there  is  reason  to  tinker  with  their  default  values,  it  is  better  for  the  user  to  leave  these 
parameters  alone. 

3.11.3.10  LOAD-STIFF  / (default=<false>) 

If  true,  include  load  stiffness  in  the  total  stiffness  matrix  assembly. 

3.11.3.11  MAX_CUTS  (default=3) 

Maximum  number  of  step  cuts  permitted  during  the  current  nonlinear  analysis  interval.  A 
step  cut  refers  to  a halving  of  the  arclength  increment  used  to  advance  the  solution  from 
one  step  to  the  next.  Step  cuts  are  performed  only  if  the  maximum  number  of  iterations  are 
exceeded  without  converging  at  a given  load  step.  Note  that  the  relationship  between  the 
increment  in  “arclength”  and  the  increment  in  the  load-factor,  A,  is  computed  internally 
by  the  procedure. 

3.11.3.12  MAX-TIME 

Problem  time  for  which  the  analysis  is  to  be  terminated. 

3.11.3.13  MAX-ITERS 

Maximum  number  of  iterations  allowed  for  convergence  at  a given  load  step.  This 
parameter  is  used  to  terminate  the  iteration  process  at  a given  load  level.  If  convergence 
hasn’t  been  obtained  after  MAXJTERS  iterations,  the  load  (i.e.,  arclength)  increment 
is  cut  in  half  and  the  step  is  repeated  — until  either  convergence  has  been  obtained  or 
MAX-CUTS  has  been  exceeded. 

3.11.3.14  MAX-STEPS 

Maximum  number  of  load  steps  to  compute  in  the  current  nonlinear  analysis  run.  This 
provides  an  implicit  limit  on  analysis  run-time.  The  transient  analysis  is  thus  terminated 
whenever  MAX-STEPS  or  MAX-TIME  is  exceeded  — whichever  comes  first. 

3.11.3.15  NL-GEOM  (default  = 2) 

Geometric  nonlinearity  level:  0,  1,  or  2.  0 =*>  the  problem  is  geometrically  linear;  1 =* 
geometric  nonlinearity  will  be  handled  globally,  e.y.,  using  corotational  updates  only;  and 
2 =>  nonlinear  element  strain- displacement  relations  should  be  used  in  addition  to  any 
global  treatment  of  geometric  nonlinearity.  If  COROTATION  = <true>,  options  1 and 
2 refer  to  first-order  and  second-order  corotation,  respectively.  The  latter  option  can  be 
significantly  more  accurate  than  the  former  for  a given  finite  element  model  — depending 
on  which  element  types  are  involved. 
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3.11.3.10  NOM1NAL-DB  (default  = NOMINAL. GAL1 

Name  of  database  (GAL  file)  where  a step-wise  history  of  important  solution  parameters 
and  selected  response  variables  is  to  be  stored. 

3.11.3.17  NOMINAL-DS  (default  = RESPONSE.HISTORYl 

Name  of  dataset,  within  database  defined  by  argument  NOMINAL_DB,  where  a step- 
wise history  of  important  solution  parameters  and  selected  response  variables  is  to  be 
stored.  See  the  CSM  Testbed  Dataset  Manual,  under  dataset  RESPONSE. HISTORY,  for 
a description  of  the  individual  data  records  stored  in  this  dataset. 

3.11.3.18  NJ5ELECT  (default  = 0) 

Number  of  user-selected  displacement  components  to  be  saved  in  the  dataset  specified  by 
argument  NOMINAL_DS.  Values  for  these  displacement  components,  the  locations  and 
directions  of  which  are  specified  by  arguments  SEL_NODES  and  SEL_D0FS,  respectively, 
are  stored  at  every  time  step. 

з. 11.3.10  SEL-DOFS  ( default  = Ol 

List  of  nodal  DOF’s  at  which  displacement  histories  are  to  be  saved  in  dataset  [NOM- 
INAL-DS]. There  should  be  [N-SELECT]  numbers  in  the  list,  in  correspondence  with 
the  node  numbers  specified  by  argument  SEL-NODES.  Values  of  each  number  in  the 
list  must  range  between  1 and  6,  in  correspondence  to  the  nodal  DOF  sequence  ( e.g ., 

и, v,u;,0x,0v,0z)  specified  by  the  START  command  of  Processor  TAB. 

3.11.3.20  SEL-NODES  (default  = 0} 

List  of  node  numbers  at  which  displacement  histories  are  to  be  saved  in  dataset  [NOM- 
INAL-DS]. There  should  be  [N-SELECT]  numbers  in  the  list,  and  node  numbers  can  be 
repeated  if  more  than  one  nodal  DOF  is  to  be  saved  at  a node.  The  corresponding  nodal 
DOF  for  each  entry  is  specified  by  argument  SEL-DOFS. 


3.11.3.21  TOL-E  (default  = l.e-3l 

Error  tolerance  used  to  establish  convergence  of  the  nonlinear  equilibrium  iteration  pro- 
cedure at  each  load  step.  The  iteration  loop  at  a given  step  is  terminated  whenever  the 
following  condition  is  met: 

e < [TOL-E] 


where 


e 


r(0  . *d(0 

r(D  • £d(1) 


is  the  relative  energy  error  norm , r is  the  residual  force  vector,  £d  is  the  iterative  displace- 
ment change,  and  t is  the  iteration  counter. 
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3.11.4  INPUT/OUTPUT  DATASETS 


Table  3.11-1  Datasets  Input/Output  by  Procedure  NL_DYNAMIC_1 

Dataset 

Description 

Lib 

Input 

Output 

<ES_NAME>.EFIL.* 

Element  Computational  Data 

1 

V 

V 

ES.SUMMARY 

ES  Processor  Status 

D 

V 

V 

DEF.<ES  _NAME>  .* 

Element  Defn.  (Connectivity) 

V 

DIR.<ES_NAME>.* 

Element  EFIL  Directory 

V 

JDF1.BTAB.* 

Model  Summary 

D 

V 

JLOC.BTAB.* 

Nodal  Coordinates 

l 

V 

PROP.BTAB.* 

Material/Section  Properties 

n 

V 

QJJT.BTAB.* 

Nodal  Transformations 

V 

TOT.DISP.siep 

System  Displacement  Vector 

V 

V 

TOT.ROTN.step 

Nodal  Rotation  Pseudovectors 

V 

V 

TOT.  VEL. step 

System  Velocity  Vector 

V 

V 

TOT.ACC.step 

System  Acceleration  Vector 

n 

V 

V 

REAC.FORC.step 

System  Internal  Force  Vector 

i 

V 

where  step  is  the  time  step  number,  and  ranges  consecutively  from  1 to  the  total  number 
of  steps  computed.  We  must  emphasize  here  that  if  one  wishes  to  solve  an  initial  value 
problem  with  either  nonzero  initial  velocities  or  displacements  (and  not  a restart),  the  user 
must  supply  TOT.DISP.O  and/or  TOT.VEL.O.  If  they  are  not  supplied,  the  procedure  will 
initialize  these  to  zero. 
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3.11.5  SUB-PROCEDURES  AND  PROCESSORS 


Table  3.11-2  Sub-Procedures  Invoked  by  Procedure  NL_DYNAMIC_1 

Procedure 

Type 

Function 

NL_DYN  AMIC  _1 

Internal 

Main  Procedure 

CHK.CONVD 

Internal 

Check  convergence 

CONSTRAIN 

Internal 

Impose  constraints  on  freedoms 

DEFND 

Internal 

Defines  recursive  macrosymbols 

ES 

External 

Element  utility  Procedure 

FACTOR 

Internal 

Factor  stiffness  matrix 

FORCE 

Internal 

Forms  INTERNAL/EXTERNAL  force  vector 

FT_ZERO 

Internal 

Zero  force-time  history 

FT-LIN 

Internal 

Piecewise  linear  force-time  history 

FTJSIN 

Internal 

Sinusoidal  force-time  history 

FT_EXP 

Internal 

Exponential  decay  force-time  history 

MASS 

Internal 

Compute  mass 

MASSJSTIFF 

Internal 

Combine  mass  and  stiffness  matrices 

NLJNITD 

Internal 

Initialize  datasets  and  set  restart 

POSTRES 

Internal 

Save  selected  data,  internal  forces 

POSTSTPD 

Internal 

Save  data  for  restart 

SOLVE 

Internal 

Solves  linear  equation  systems 

STIFFNESS 

Internal 

Forms  and  assembles  stiffness  matrix 
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Table  3.11-3  Processors  Invoked  by  Procedure  NLJDYNAMIC_1 

Procedure 

Type 

Function 

AUS 

Internal 

Combines  mass  and  stiffness  matrices 

E 

Internal 

Initializes  EFIL  datasets 

ESt 

External 

Element  Processors  based  on  GEP 

INV 

Internal 

Factors  stiffness  matrix 

SSOL 

Internal 

Solves  linear  equation  systems 

VEC 

Internal 

Performs  all  vector/pseudo- vector  algebra 
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3.11.6  LIMITATIONS 

Limitations  spelled  out  in  Sections  4. 1.6.1  through  4. 1.6.8  apply  also  to  NL_DYNAMIC_1. 
In  addition,  the  following  limitations  also  exist: 

3.11.6.1  No  Damping  Included 

No  damping  is  included  in  this  first  version  of  NL_DYNAMIC_1.  Damping  that  preserves 
the  bandwidth  of  the  problem  will  be  included  in  a later  version. 

3.11.6.2  Initial  Velocities  and  Displacements 

These  are  currently  the  responsibility  of  the  user.  NL_DYNAMIC_1  will  expect  to  see  data 
sets  TOT.DISP.O  and  TOT.VEL.O  for  these  types  of  problems.  Currently,  there  is  no  way 
to  initialize  rotational  triads.  This  is  a topic  for  future  development. 

3.11.6.3  Diagonal  Mass 

Currently,  only  diagonal  mass  can  be  used.  This  limitation  will  soon  be  removed. 

3.11.6.4  AUS  Limitation 

Due  to  hard  wired  data  set  naming  conventions  in  processor  AUS  for  system  matrices  ( e.g . 
K.SPAR.36),  the  number  of  DOF’s  per  node  specified  on  the  START  command  of  processor 
TAB  is  presently  restricted  to  be  6.  AUS  is  currently  essential  to  NL_DYNAMIC_1  for 
computing  the  sum  of  the  mass  and  stiffness  matrices  to  obtain  the  dynamic  operator.  This 
restriction  will  be  removed  when  we  make  the  connection  to  the  Generic  Matrix  Processor. 


3.11.7  ERROR  MESSAGES 

3.11.7.1  “Non-Convergence  at  Step  n.  Revise  Strategy.” 

This  message  means  that  the  maximum  number  of  nonlinear  iterations  (MAXJTERS) 
has  been  exhausted,  as  well  as  the  maximum  number  of  step  cuts  (MAX_CUTS),  and 
convergence  still  hasn’t  been  obtained  at  step  n.  A possible  cure  is  to  re-start  the  analysis 
from  several  steps  back,  and  decrease  the  arclength  increment  at  that  point  (using  the 
PATH-SCALE  argument).  However,  just  increasing  MAXJTERS  or  MAX-CUTS,  or  even 
TOL-E,  may  also  solve  the  problem.  In  other  words,  re-think  the  definition  of  all  solution 
parameters  based  on  the  observed  behavior  of  the  solution  algorithm  just  prior  to  the 
break-down. 

3.11.7.2  “Divergence  at  Step  n.  Revise  Strategy.” 

This  message  has  similar  implications  to  the  previous  message,  but  it  occurs  when  the 
error  grows  instead  of  decreases  during  two  successive  nonlinear  iterations.  The  difference 
between  divergence  and  non-convergence  is  that  divergence  cannot  be  cured  by  increasing 
MAXJTERS;  and  probably  should  not  be  “cured”  by  increasing  TOL-E.  It  generally 
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means  that  the  step-size  is  too  big  — or  that  the  error  tolerance  (TOL_E)  has  been  too  big 
all  along,  so  that  changes  axe  occurring  suddenly  that  should  have  been  detected  by  the 
solution  algorithm  at  earlier  load  steps.  Thus,  you  might  try  re-starting  from  an  earlier 
step,  reducing  PATH  _INC,  and  possibly  reducing  TOL.E  as  well. 

3.11.7.3  “Specified  Displacements  are  Identically  Zero” 

This  is  not  necessarily  an  abortive  error.  As  long  as  either  nonzero  specified  displacements 
or  specified  forces  are  defined,  the  solution  can  proceed  — in  which  case  the  message  should 
be  taken  merely  as  a warning. 

3.11.7.4  “Specified  Forces  are  Identically  Zero” 

This  is  not  necessarily  an  abortive  error.  As  long  as  either  nonzero  specified  displacements 
or  specified  forces  are  defined,  the  solution  can  proceed  — in  which  case  the  message  should 
be  taken  merely  as  a warning. 


3.11.8  USAGE  GUIDELINES  AND  EXAMPLES 
3.11.8.1  Starting  an  Analysis 

To  begin  a nonlinear  transient  analysis  with  procedure  NL_DYNAMIC_1,  it  is  only  nec- 
essary that  the  finite  element  model  be  defined.  This  does  not  require  pre-formation  of 
element  stiffness  matrices,  node  renumbering  for  optimal  factorization  time,  or  any  form 
of  linear  analysis  (unless  initial  geometric  imperfections  are  based  on  linear  displacement 
modes).  Only  nodal  coordinates/transformations,  material  properties  and  element  con- 
nectivity are  pre-requisite  to  nonlinear  analysis.  To  invoke  procedure  NL_DYNAMIC_1, 
only  those  arguments  that  don’t  have  default  values  (see  PROCEDURE  USAGE  section) 
need  be  specified. 

For  example,  if  you  wanted  to  start  an  analysis  with  an  initial  time  of  0.,  maximum  time 
of  .01,  a time  step  of  .005,  and  compute  no  more  than  20  time  steps  with  an  initial  velocity 
profile  defined  in  data  set  TOT.VEL.O,  you  could  invoke  the  procedure  as  follows: 


♦call  NLJDYNAMIC-l  ( BEG-STEP  = 1 ; MAX-STEPS  = 20  ; - 

BEG-TIME  = .0  ; MAX-TIME  = .1  ; - 
DEL-TIME  = 0.005  ) 


Keep  in  mind  that  the  number  of  time-steps  actually  performed  during  the  above  run  will 
depend  on  whether  convergence  difficulties  were  encountered.  If  that  happened,  the  step 
will  be  cut,  and  the  number  of  steps  to  maximum  time  will  be  greater.  Since  it  may  be 
difficult  to  estimate  this  in  advance,  you  may  want  to  start  with  only  a few  time  steps 
(e.g.,  set  MAX-STEPS  = 3)  to  get  some  experience,  and  later  re-start  the  analysis  with 
more  steps  allowed. 
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3.11.8.2  Re-Starting  for  Continuing)  an  Analysis 

To  re-start  an  analysis  from  a previously  computed,  converged  solution,  you  need  only 
specify  the  first  step  to  compute,  the  maximum  time,  and  any  changes  in  the  forcing 
function.  The  only  requirement  is  that  a previous  complete  set  of  solution  data  for  a 
converged  time  step  must  be  present  on  the  database.  If,  for  example,  one  wishes  to 
restart  from  step  10  (compute  beginning  step  11),  then  the  call  could  be 


♦call  NL-DYNAMIC-1  ( BEG -STEP  = 11;  MAX-STEPS  = 100  ; - 

MAX_TIME=  .1  ; DEL-TIME  = 0.  ; - 
FT_PROC=FT_LIN  ; FT-ARGS=100.,0.,0.,1.  ) 


In  this  case,  the  user  wants  to  restart  the  previous  example  at  time  .05  with  the  sudden 
imposition  of  a step  forcing  function  with  scaled  magnitude  of  100.  By  examining  Fig. 
4.3-1,  one  can  see  that  the  step  load  is  to  be  continued  well  beyond  the  termination  time. 
FT-LIN  is  one  of  the  procedures  supplied  here. 

It  is  also  possible  to  modify  integration  parameters  and  the  time  step,  as  well  as  any  of 
the  other  applicable  procedure  arguments.  Note  that  the  parameter  DEL-TIME  is  always 
required.  The  value  zero  is  used  to  tell  the  procedure  to  look  into  the  database  for  the  last 
value.  A nonzero  value  for  this  parameter  overrides  the  time  step  saved  in  the  data  base. 
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8.11.9  THEORY 
3.11.9.1  Introduction 

Procedure  NL _DYNAMIC_1  performs  a nonlinear  transient  analysis  of  a system  using 
a time  integration  algorithm  that  has  adjustable  parameters  which  allow  for  the  automatic 
selection  of  a family  of  related  transient  analyzers.  All  of  them  are  self  starting,  require  no 
“historical”  vectors,  and  for  a useful  range  of  parameters,  are  unconditionally  stable.  All 
are  based  on  discrete  matrix  equations  of  motion  that  may  or  may  not  include  damping. 
The  internal  and  external  force  vectors  can  be  nonlinear  functions  of  the  displacements 
(unknowns). 


3.11.9.2  Development  of  the  Aleorithm 

The  discrete  form  of  the  equations  of  motion  are 


Mii  + fint(u)  = rxt  (3.11  - 5) 

where  for  simplicity  we  have  omitted  damping,  and  where  the  dependence  of  the  internal 
forces  on  displacement  and  the  external  forces  has  been  emphasized.  Here  M is  the  mass 
matrix,  u is  the  displacement,  and  dots  over  quantities  refer  to  differentiation  with  respect 
to  time.  Our  goal  is  to  find  a discrete  solution  to  (69)  at  time  t + At  (step  n + 1),  given 
information  at  time  t (step  n).  In  order  to  do  this,  we  need  additional  relations  between 
the  displacements,  velocities,  and  accelerations  being  solved  for. 

We  begin  with  a two  parameter  family  of  the  equations  of  motion  (69)  discretized  in 
time  as  follows: 

Man+#  + (1  + a)rn‘(dn+,)  - af*nt(dn)  = f#9  (3.11  - 6) 

where  and  an+s  are  the  approximations  to  the  displacement  and  acceleration  at  time 
(n  + 0)At}  and  where  Wilson’s  6 interpolation  parameter  is  used  to  obtain  the  desired 
acceleration  according  to 

a„+s  = (1  - 0)an  + 0*n+i  (3.11  — 7) 

The  parameter  a is  a measure  of  the  “degree  of  implicitness”  of  the  integrator.  If  a is  0, 
the  equations  of  motion  are  to  be  satisfied  at  some  point  9 greater  than  unity.  If  a = — 1, 
we  have  an  explicit  system,  with  the  acceleration  extrapolated  from  values  at  the  previous 
step. 

To  relate  the  velocity  and  acceleration  to  the  displacements  at  the  point  n + 9,  we 
introduce  the  two  standard  Newmark  parameters  /?  and  7: 

vn+«  = vn  + 9 Af[(l  - 7)a„  + 7a„+s]  (3.11  - 8) 

d„+«  = dn  + 9Atvn  + (0At)2[(i  - /3)an  + /?an+s]  (3.11  - 9) 
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Eq.  (72)  is  required  when  damping  is  present.  If  we  define  the  known  quantity 

dn+0  = dn  + 6Atvn  + (*A*)2(i  - /?)an  (3.11  - 10) 

then,  using  (73),  we  have 

dn+e  = dn+0  + (0At)2/?an+0  (3.11  - 11) 

If  we  multiply  Eq.  (70)  by  (0Af)2/?  and  eliminate  an+$  using  (74),  we  obtain 

Mdn+j  + (0At)2/3(l  + a)rnt(d„+<>)  -ln+0  = 0 (3.11  - 12) 

where  the  quantity  fn+«  is  known  from  the  last  converged  time  step: 

fn+,  = {6Atf^e  + af  nt(dn)]  + Mdn+*  (3.11  - 13) 

Eq.  (77)  is  a nonlinear  system  of  equations  which  must  be  solved  for  dn+#;  these  dis- 
placements will  be  solved  for  using  an  extrapolated  starting  solution  followed  by  modified 
Newton  corrections.  The  solution  of  this  system  is  very  similar  to  what  is  in  NL_STATIC_1, 
with  the  exception  of  the  arclength  constraint  and  load  factor  equation.  Thus,  solution 
of  (77)  proceeds  like  a fixed-step  static  algorithm  with  a modified  “stiffness”  matrix  and 
residual  vector.  In  the  algorithm  description,  these  are  labeled  the  dynamic  operator  and 
dynamic  residual,  respectively. 

3.11.0.3  Derivation  of  the  Dynamic  Operator  and  Residual 

The  derivation  of  the  dynamic  operator  and  residual  follows  directly  from  the  lin- 
earization of  (77).  Using  a procedure  similar  to  that  for  static  analysis,  we  carry  out  a 
Taylor  expansion  of  (77)  and  drop  all  terms  of  order  higher  than  first.  The  result  is  the 


system 

[M  + (0A()V(1  + aWOlSd™,  = tl. 

(3.11  - 14) 

where 

f'i)  = fn+.  - - (*Ai)V(i  + «)r”'(d  <£>) 

(3.11  - 15) 

is  the  dynamic  residual.  Here 

fn+0  = ($A i)  W*(<n+*)  + <rf<nt(dn)]  + Mdn+0 

(3.11  - 16) 

which  is  computed  from  information  known  at  the  previous  step  or  computed  from  the 
known  external  forcing  function.  5d^e  is  the  vector  of  unknown  displacement  increments 
at  iteration  t,  time  point  t + 6 At.  One  can  tell  that  this  is  a modified  Newton  sequence, 
because  of  the  argument  of  the  stiffness  matrix  in  (78).  For  true  Newton,  one  would  have 
to  reform  and  refactor  the  stiffness  matrix  using  the  latest  displacement  information. 
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3.11.V.4  K-ecoverv  or  uuammes  at  step  n 


Once  the  displacements  at  point  t+0 At  are  known,  we  need  to  update  the  accelerations 
and  compute  the  new  velocities  and  displacements  at  the  desired  new  step.  Starting  with 
d„+0,  we  use  the  second  of  (73)  to  solve  for  an+e.  Introducing  (74),  the  equation  for  the 


acceleration  becomes 


a*»+0  — (0At)2/?^n+*  — 


(3.11  - 17) 


We  now  require  the  accelerations,  velocities,  and  displacements  at  time  step  n + 1.  Using 
(72),  we  have  for  an+i 

a«+i  = £an+s  + (!  “ ^)an  (3.11  - 18) 

Eqs.  (72)  and  (73)  can  then  be  used  with  0 = 1 to  interpolate  velocities  rind  displacements 
to  step  n + 1,  given  the  new  and  old  accelerations: 


vn+i  = vn  + At  [(1  - 7)an  + 7are+i 

dn+i  = dn  + A tvn  + At2[(i  - /?)an  + /3&n+i] 


(3.11  - 19) 


3.11.0.5  The  Composition  of  New  Displacements  and  Velocities 


Whenever  a new  velocity  vector  is  to  be  updated  from  a previous  vector,  the  increment 
is  simply  added  to  the  vector.  For  displacements,  however,  only  the  translations  are 
handled  this  way.  The  rotational  triads  must  be  updated  by  the  product  rule,  covered 
in  Section  4.1.9.10.  NL_DYNAMIC_1  is  no  different  from  NL_STATIC_1  in  this  respect. 
However,  the  reader  will  notice  that  the  vector  dn+$  is  treated  like  a velocity,  with  no 
accompanying  rotational  update.  The  reason  is  that  dn+$  eventually  ends  up  as  part  of 
an  incremental  quantity  used  to  account  for  inertial  effects  in  the  dynamic  residual.  The 
rotational  freedoms  in  this  vector  are  accumulated  like  their  translational  counterparts.  To 
avoid  confusion  in  the  algorithm  description,  compositions  that  require  special  rotational 
treatment  will  be  denoted  by  the  symbol  ©.  Again,  this  is  similar  to  the  static  case. 


3.11.9.6  The  Integration  Parameters 


The  integration  parameters  allow  the  user  to  taylor  the  integrator  to  the  special  needs 
of  his  problem.  The  following  table  defines  what  we  mean  by  each  parameter.  For  detailed 
information  on  the  various  integrator  options,  the  reader  should  consult  references  at  the 
end  of  this  section. 
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Table  3.11-4  Parameter  names  used  in  the  NL_DYNAMIC  Procedure. 

Special  choices  of  these  parameters  select  out  well  known  integrators  whose  behavior  has 
been  studied  extensively.  These  integrators,  the  parameter  choices,  and  their  regions  of 
stability  for  stiff  linear  systems  can  be  found  in  the  following  table. 
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Algorithm 

a 

0 

a 

0 

Remarks 

Newmark 

0 

1 

1 

Implicit  and  unconditionally  sta- 
ble when  2/?  > 7 > 1 

Trapezoidal 

0 

1 

Implicit  and  unconditionally  sta- 
ble 

Linear  Acceleration 

0 

1 

6 

1 

Implicit  and  conditionally  stable 

Fox-Goodwin 

0 

1 

12 

1 

Implicit  and  conditionally  stable 

Central  Difference 

0 

0 

1 

2 

1 

Explicit  and  conditionally  stable 

Wilson-0 

0 

1 

6 

| 

Implicit  and  unconditionally  sta- 
ble when  9 > 1.366025 

Collocation 

0 

Implicit  and  unconditionally  sta- 
ble  when  9 > 1 and  2(9+1)  — P — 

203-l 

4(2#s  — 1) 

a-Method 

1 

Implicit  and  unconditionally  sta- 
ble when  — j < a < 0,  7 = 
|(1  — 2a)  and  /?  = j(l  — a)2 

Table  3.11-5.  Some  properties  of  the  algorithms  that  can  be  produced  using 
NL_DYNAMIC_1  through  the  a,  (3,  7,  and  0 parameters. 
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3.11.10  ALGORITHM 

General  Algorithm 

(1)  INITIALIZATION 

(1.1)  Initialize  a,  fl,  7,  9. 

(1.2)  Initialize  do,  v. 

(1.3)  Compute  time  at  9 

te  = <0  + 9 At 

(1.4)  Compute  weighted  out-of-balance  force 

? = pr “((,)  + (i  - /?)f "((.)  + r"‘(do)[0(i  + «)  - i| 

(1.5)  Add  inertial  terms 

U = M(d0  + 0Atvo)  + {AtBfi 

(1.6)  Compute  initial  estimate  of  displacements 

d^  = do  © 9Atv0 

(1.7)  Compute  initial  dynamic  residual 

f*  = ?.+.  - Md-;;1  - (»Ai)!/3(l  + air'ldi;;1) 

(1.8)  Set  n = 0,  t = to  + At,  nbeg  = 1 

(2)  STEP  LOOP:  for  n = nbeg,  + 1, . . . 

(2.1)  Form  and  Assemble  Stiffness  Matrix  based  on  predicted  displacements 

(2.2)  Compute  the  Dynamic  Operator 

E = [M  + («Ai)V(l  + <*)K(<0] 

(3)  ITERATION  LOOP:  i = 1,  2,  . . . (iter  = i+1  = 2,  3,  . . . ) 

(3.1)  Solve  for  incremental  displacement  change 

EidTH-0  ~ Wtf 
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(3.2)  Update  displacements 

<+.  = d<&>  ® <d<» 


n-^B 


(3.3)  Set  iteration  counter 

i *-  i + 1 


(3.4)  Compute  new  Dynamic  Residual 

f'"  = tn+,  - Md<£>  - + o)f"*(d<:;,,>) 

(3.5)  Check  Convergence 

call  CHK_CONV  ( fir*/,  £«ol»  num^div  — ► 

<CONVERGED>,  <DIVERGED>  ) 
if  ( <CONVERGED>  ) then 

numiters_required  = iter 
n <—  n + 1 

go  to  (2.3)  STEP  LOOP 

elseif  ( <DIVERGED>  .or.  (iter  > maxJters)  ) then 
if  ( numjcuts  < max-cuts  ) then 

A<n+ 1 = Afn+i/2 
numjcuts  = num-cuts  + 1 
Tlbeg  — n 

GO  TO  (1.3) 

else 

STOP 

endif 

else 

go  to  (3)  ITER  LOOP 

endif 

(2.3)  Compute  acceleration  at  n + 6 

(2.4)  Compute  acceleration  at  n + 1 

1 ,,  1. 

®n+l  q (1  q )®tl 
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(2.5)  Extract  velocities 

vn+i  = vn  + Af  [(1  - 7)an  + 7an+i] 

(2.6)  If  9 ^ 1,  recompute  displacements 

d„+i  = dn  © {A<vn  + At2[(i  - /?)an  + /?an+1]} 

(2.7)  Update  counters,  timestep 

n «—  n + 1;  t *—  t + 1 

(2.8)  Check  to  see  if  i ^ i max  n ^ Timax 

(2.9)  If  either  statement  in  2.8  is  true,  STOP;  else  GO  TO  2.10 

(2.10)  Compute  dn+# 

dn+<>  = dn  + 9Aivn  + (0A<)2(|  - /?)an 

(2.11)  Compute  external  loads  f*xt(t)  at  current  time  t 

(2.12)  Compute  fn+# 

fn+e  = (0At)2(5[r "(tn+o)  + af*nt(dn)]  + Mdn+e 

(2.13)  Compute  initial  estimate  of  new  solution 

Adn+0  = dn+®  + ( 0At)2/3an  — dn 
d^+9  = d„  ® Adn+$ 

(2.14)  END  STEP-LOOP 
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d 

NOTATION 

Displacement  vector. 

V 

Velocity  vector. 

a 

Acceleration  vector. 

6 d 

Iterative  change  in  d. 

d 

Extrapolated  displacement  from  step  n 

■~-ert 

f 

External  force  vector  — base  load. 

fint 

Internal  force  vector. 

f€Zt 

External  force  vector. 

f 

Extrapolated  out-of-balance  force. 

f 

The  dynamic  residual. 

K 

Stiffness  matrix. 

num_cuts 

Number  of  times  load  step  has  been  cut  in  half  at  current  step. 

numjdiv 

Number  of  consecutive  iterations  at  which  divergence  occurs. 

€ 

Relative  error  in  energy  norm. 

e 

Absolute  error  in  energy  norm. 

€ re/ 

Reference  value  of  c;  initialized  as  zero. 

ttol 

Relative  error  tolerance  (default:  10-4). 

A 

Load  factor. 

d' 

Base  value  of  specified  displacement  vector. 

d* 

Current  value  of  specified  displacement  vector,  d*  = A d . 

t 

Problem  time. 

At 

Time  increment. 

n + ^ 

Time  at  step  n + OAt 
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3,11.11  PROCEDURE  LISTING 


*procedure  NL.DYNANIC.l  ( — 

beg.step  *1 
nax_steps*l 
aax.iters*9 
dei.iters=4 
fac_steps=l 
aax_cuts*3 
tol.e*l.E-3 
bag. t la a 
aax.tla# 
del. tine 
in t .pars 


- . Starting  stap  nuabar  (>0) 

- . Naxiaua  stapa  to  coaputa 

- . Naxiaua  itarationa  par  atap 

- . Nuabar  o f itarationa  daairad 

- . Steps.per.refactoring 

- . Naxiaua  nuabar  of  atap  cuta 

- . Energy  arror  tolaranca 

* . Starting  tiaa 

* . Uppar. bound  on  tiaa 

- . Tiaa  incraaant 

1.  ,0. , .25, .6  ; — • Itagration  paraaatara 


load.stif f=<f alse> 
FT.proc*FT_ZEE0 
FT.arga 
debug*<FALSE> 
NL.GEON  * 2 
C0RQTATI0N&1 
Noainal.DB 


— . Includa  load  atiffnaaa 
; — . Naaa  of  force-time  procedure 

— . Paraaatar  array  for  abova 
Dabug.print  switch 
Geoa.  Nonlin.  Laval  ( 1 1 2) 
Corotational  Flag  (laava  on!!) 

NOMINAL. GAL  ; — . Salactad  Output 


Nominal. DS  = RESPONSE. HISTORY  ; — 
N.SELECT  ; SEL.NODES;  SEL.DOFS  — 


* Rea ark 
*Remark 
•Ran  ark 
aRaaark 
*Raaark 
aReaark 
aRaaark 
♦Remark 
♦Remark 
* Ran ark 
•Remark 
♦Remark 
* Ranark 
* Raaark 


NL.DTNANIC.l 


CSH  Tastbad  Procadura  for  Nonlinear  Statics: 


Corotational  Nevton/Raphson  algorithm 
Linearized  Crisf iald/Riks  arc -length  control 
Applied  forces  and/or  displacements 


Authors:  G.N.  Stanley  and  C.C.  Rankin 
Version:  MAR-03-1988 


. INITIALIZATION 


*def/i 

♦def/i 

♦def/i 

♦def/i 

*def/a 

•def/a 

•def/i 

♦def/i 

•def/i 

*def/i 

♦def/i 


ns.overvrite 

debug 

aax.stap 

nua.itars 


<falsa> 

[debug] 

< [bag. step] ♦ [aax.staps] -1> 
[das. iters] 


NOM. DB  [Noainal.DB] 

NON. DS  as  [Nominal.DS] 

N.SELECT  « [N.SELECT] 

SEL.NODES [1:<N.SELECT>]  ==  [SEL.NODES] 
SEL.DOFS  [1 : <N.SELECT>]  ==  [SEL.DOFS] 
NL.GEON  » [NL.GEOM] 

COROTATION  ==  [COROTATION] 
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♦def/d  uig.tilt  mm  [beg.iiaej 

♦def/d  max. time  «■  [max. time] 

•def/d  int.pars [1 :4]  = [int.pars] 

Set  time  integration  parameters 

♦def/d  theta  **  < int.pars [l] > 

♦def/d  alpha  »■  <int_pars [2]> 

♦def/d  nevm.bet  =*  <int_pars[3]> 

•def/d  newm.gan  #*  < int.pars [4] > 

Initialize  dataset  names,  constants 

♦CALL  DEFND  ( STEP  « [BEG.STEP] ; ITER  » 0 ) 

♦IF  [BEG.STEP]  /EQ  1 /THEN 
♦Remark  INITIALIZATION: 

♦call  NL.INITD 

*def/d  t »*  [beg. time] 

♦del/ d dt  a*  [del. time] 

♦else 

♦if  < [del. time]  /eq  0.0  > /then 
*def/d  dt  **  <dt_n> 

♦else 

♦del/d  dt  as  [del.time] 

♦endif 

♦del/d  »»  <t.n> 

♦endif 

- . . . Set  initial  step,  initial  iteration  paraaeters 

♦def/i  pass  «s  l 
*def/i  tot. iters  *»  1 
*def/i  istep  »«  [beg.step] 

• • • • Set  initial  time,  basic  time  integration  scalars 

♦def/d  one.p.alp  ■■  <1.  ♦ <alpha» 

♦del/d  b.op.a  as  «ne«ym.bet>*<one.p.alp» 

♦del/d  h.m.bet  «*  <.6  - <nevm.bet» 

♦def/d  o.d.th  a»  <l./<theta» 

♦def/d  o.m.odth  <1,  - <o.d.th» 

♦def/d  o.m.gam  as  <1 . - <nevm.gam» 

e 

. . . • Reintery  for  problem  restart  on  failure  of  convergence 

• . . . System  is  treated  as  a new  initial  value  problem 

sNEV.PASS  . Re-entry  point  for  step-size  reduction 

. . . . Set  iteration  and  step- independent  integration  scalars 

♦def/d  th.dt  ==  «theta>*<dt» 

•def/d  t.vils  =*  «t>  ♦ <th.dt» 

♦def/d  th.dt. sq  *a  «th.dt>e<th.dt» 
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•daf/d  th.b  •*  «newa.bet>*<th.dt.sq» 

•def /d  a.th.b  ==  «th_b>  * <alpha» 

•def/d  o.d.thb  ==  <l./<th.b» 

•def/d  fO.coef  ««  «b.op.a>  - .6> 

•def/d  k.coeff  »=  «th.dt_sq>*<b_op.a» 

•def/d  v.n.coeff  »«  «dt>*<o.a.gaa» 

•def/d  v.npl.coeff  as  «dt>*<newa.gaa» 

•def/d  dtsq  as  «dt>*<dt>> 

•def/d  h.ab  «*  «dtsq>*<h.a_bet>> 

•def/d  dt.b  **  «dtsq>*<newa.bet>> 

•def/d  h.ab.th  **  «th.dt.sq>*<h_a.bet» 

. . . Sat  Initial  displacanant  estimate,  first  stap 

. . . Sat  initial  astinata  of  weighted  out -of -balance  forcas 


. . . Coapute  external  force  weighting  constant  laabda.n(tiae) 


•call  [FT.proc]  ( T a <t> 
FT.  args 
F.aac  » 

•call  FORCE  ( type 

nl.geoa 
nl.load 
displacement 
rotation 
corotation 
load.factor 
input. fore a 
output. fore a 


s [ft. args]  ; — 
laabda.n  ) 

s EXTERNAL 

* [nl.geoa] 
a <true> 

= <d_n> 

* <T_n> 

* [corotation] 
s <laabda.n> 

= <F.raf> 

= <F.ext>  ) 


. Problaa  time 
. Forca-tiaa  pareaeters 
External  forcing  scale  factor 


. . . . Sat  internal  force 


•call  FORCE  ( type 

nl.geoa 

displaceaant 

rotation 

corotation 

output.force 

. stop.l  estop 


« INTERNAL 
» [nl.geoa] 

= <d.n> 

* <T.n> 
s [corotation] 
= <F_int>  ) 


. • • • Weighted  difference  between  internal  and  external  force 
[XQT  TEC 

<a_th>  <-  <f.ext>  - <f.int> 

<f.bar>  <-  <h.a.bat>  <F_axt>  ♦ <fO_coaf>  <F.int> 


. . . . External  force  at  tine  = T ♦ <thata>  « DT 


•call  [FT.proc]  ( T = <t.wils>  ; — . Problaa  tiaa 

FT.  args  = [ft. args]  ; — . Forca-tiaa  pareaeters 
F.aac  = laabda.npl  ) . External  forcing  scale  factor 
•call  FORCE  ( typo  = EXTERNAL  ; — 
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m.geon 
nl.load 
displacement 
rotation 
ecroiatiom 
load.factor 
input. force 
output. force 


= [nl.geom] 

■ <true> 

* <d.n> 

« <T.n> 
a [eorotation] 
» <lambda_npl> 
« <F.ref> 

« <F.ext>  ) 


. . • . Add  correction  to  external  force 
[XQT  VEC 

<f.bar>  <-  <f.bar>  ♦ <newm.bet>  <F.ext> 
<f.bar>  <-  <th_dt.sq>  <f.bar> 

. • . . Initial  estimate  of  displacements 


<delta>  <-  <th.dt>  <v.n> 

<d_npl_i>  <-  <d.n>  ♦ <delta> 

EOTATE  <T.n>  * <delta>  ->  <T.npl.i> 

<d.tilde>  <-  <d.npl.i> 


. . . . Scaling  displacement  increment  for  convergence  check 


. stop.2  *stop 

PEOD  <inv_mass>  <a.th>  ->  <d.inc.i> 

<d.inc.i>  <-  <h.mb.th>  <d.inc.i>  ♦ <delta> 

• • . . Mass  * Displacements  ♦ scaled  out -of ‘balance  force 

PEOD  <mass>  <d.npl.i>  ->  <f.tilde> 

<f.tilde>  <-  <f.tilde>  ♦ <f.bar> 


• . . BE6IV  STEP.LOOP 


♦DO  : STEP.LOOP  In  * <istep>,  < [max. steps] -1> 

♦def/i  step  **  <$n> 

♦Remark 

♦remark  

♦remark 

♦Eemark  BEGINNING  STEP  <STEP> 

♦remark  

♦remark 

♦call  CONSTEAIN  ( load.factor  a <lambda.npl  > ; — 
applied.motion  a <d.spec>  ; — 

displacement  a <d_npl.i>  ) 

• . . Form  Stiffness  based  on  Predictor 
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•call  STIFFNESS  ( type 

nl.geom 

nl.load 

load.lactor 

displacement 

rotation 

corotation 

stillness 


TANGENT 

[nl.geom] 

[load. still] 

<laabda_npl>  ; 

<d_npl.i> 

<T.npl.i> 

[corotation] 

<K_asm> 


. . . Combine  HASS  and  STIFFNESS  into  one  matrix  <H.p_K> 


•call  HASS.STIFF  ( mass 
stil 
mult 
H.p.K 


= <mass> 

* <K.asm> 

= <k.coell> 

* <H.p_K> 


. . . Factor  DYNAMIC  OPERATOR 


•call  FACTOR 


( input .matrix  * <M_p_K> 
output .matrix*  <M.p_K> 


. . . Obtain  HASS  RESIDUAL 


•call  FORCE  ( type 

nl.geom 
displacement 
rotation 
corotation 
output .1 ore e 


INTERNAL 

[nl.geom] 

<d.npl.i> 

<T.npl.i> 

[corotation] 

<F.int>  ) 


. stop. 3 *stop 
[XQT  VEC 

PROD  <aass>  <d_npl.i>  ->  <R.npl_i> 

<R_npl_i>  <-  <l_tilde>  - <R.npl.i> 

<R.npl_i>  <-  <R.npl.i>  - <k.coell>  <F.int> 

. . . Initialize  Convergence  Criteria 

e 

•call  CHKCNYD  ( STEP  = 1 

ITER  = 1 

Residual. lorce  * <R.npl_i> 

displacement. inc  = <d.inc.i> 


— BEGIN  ITERATION  LOOP 


stop.4  •stop 
•echo,on,ma,md 

•DO  : ITER.LOOP  $i  * 1,  [max. it era] 


) . output 


Hass  vector 
Assembled  Stillness 
Stillness  Hultiplier 
The  dynamic  operator 


) 
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♦dex/i  iter  mm  <<$!>+!> 

♦def/i  tot.iters  *«  «tot.iters>+l> 

Compute  Basic  Displacement  Iteration  (delta.th) 

♦call  SOLVE  ( rhs  « <R_npl.i>;  soln  « <delta_th>;  matrix  ■ <M.p.K>  ) 


• . . . Opdata  Displacements,  Rotations,  Increments 
[XQT  VEC 

<d_npl.ipl>  <-  <d.npi.i>  ♦ <delta.th> 

ROTATE  <T.npl.i>  ♦ <delta.th>  ->  <T.npl.ipi> 
♦call  CONSTRAIN  ( load.f actor  * <lanbda.npl>;  — 

applied.motion  » <d.spec>  ; — 
displacement  * <d_npl.ipl>  ) 

♦if  < <DEBUG>  > /then 
♦print  1 , <d.npl.ipl> 

♦print  1,  <T.npl.ipl> 

♦endif 

....  Compute  DYNAMIC  RESIDUAL 


♦call  FORCE  ( type 

nl.geom 
displacement 
rotation 
corotation 
out put. force 


= INTERNAL 
= [nl.geom] 

* <d_npl.ipl> 

* <T_npl.ipl> 
3 [corotation] 
» <F.int>  ) 


[XQT  VEC 

PROD  <mass>  <d.npl.ipl>  ->  <R.npl.ipl> 

<R.npl.ipl>  <-  <f.tilde>  - <R.npl.ipl> 

<R_npl_ipl>  <-  <R.npl.ipl>  - <k.coeff>  <F.int> 

....  CHECK  CONVERGENCE 

♦call  CHKCNVD  ( step  = <step>  ; — . input 

iter  3 <iter>  ; — 

Residual.force  s <R.npl.ipl>  ; — 

displacement. inc  = <delta.th>  ; — 

tol.e  = [tol.e]  ; — 

max. iters  s [max. iters]  ; — 

convergence  = CONVERGENCE  ; — . output 

divergence  = DIVERGENCE  ) 

♦if  <CONVERGENCE>  /eq  <TRUE>  /then 
♦jump  to  : CONVERGED 

♦elseif  <DIVERGENCE>  /eq  <TRUE>  /then 
♦if  <pass>  /le  [max. cuts]  /then 
♦jump  to  : REPEAT 

♦else 

♦Remark  Maximum  number  of  automatic  step  cuts  exhausted. 
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•jump  to  : DIVERGED 
•endif 
•endif 
: ITER.LOOP 
: NEUTRAL 

•if  <pass>  /!•  [mar. cut a]  /than 
•jump  to  : REPEAT 

••Iso 

•Remark  Maximum  number  of  automatic  step  cuts  exhausted. 

•endif 

•Remark  NON- CONVERGENCE  AT  STEP  <step>.  REVISE  STRATEGY, 

•jump  to  :EXIT 
: REPEAT 

•def/i  pass  *«  < <pass>+l  > 

•def/d  dt  *«  «dt>*.6> 

•Remark 

•Remark  CONVERGENCE  DIFFICULTIES;  REPEATING  STEP  <step> 

•Remark  with  half  original  time  step 
•Remark  New  TIME  increment  is  <dt> 

•Remark  Pass:  <pass> 

•jump  to  : NEW. PASS 
: DIVERGED 

•Remark  DIVERGENCE  AT  STEP  <STEP>.  REVISE  STRATEGY. 

•jump  to  :EXIT 
: CONVERGED 

•Remark  CONVERGENCE  AT  STEP  <STEP>. 


: NEXTSTEP 
•def/i  num. iters 
•def/d  path.scale 
•def/d  lam.n 
•def/i  sign.det.n 
•def/i  load.dir.n 


**  <iter> 

<[des.  iters] /<num.iters» 
■«  <lambda_npl> 

==  <sign.det> 

»*  <load.dir> 


. • . . Compute  current  acceleration 
[XQT  VEC 

•if  «theta>  /ne  1.0>  /then 

<a_th>  <-  <o.d.th>  <d_npl.ipl>  - <o.d.th>  <d.tilde> 
<a.npl>  <-  <o.d.th>  <a.th>  ♦ <o.odth>  <a.n> 

•else 

<a.npl>  <-  <o.d.th>  <d.npl.ipl>  - <o_d.th>  <d.tilde> 
•endif 


. . . . Update  velocity  vector 

<a.th>  <-  <v.n_coeff>  <a_n>  ♦ <v_npl.coeff>  <a.npl> 

<v.npl>  <-  <v_n>  ♦ <a.th> 

. . . . For  strange  (non-unity)  values  of  Wilson’s  parameter , update 
. . • . displacements  to  step  n+1 

•if  «theta>  /ne  1.0>  /then 

<a.th>  <-  <h_mb>  <a.n>  + <dt.b>  <a.npl> 
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<d«xta>  <-  <dt>  <v_n>  ♦ <a_th> 
<d_npl_i>  <-  <d_n>  ♦ <d«lta> 

ROTATE  <T_n>  * <dalta>  ->  <T_npl_i> 

•endif 


. . . . Postprocess  and  save  results  of  computations  st  «STEP>  + 1> 

•call  POSTSTPD  ( step=<itep>;  iter=<iter>  ) 

. . . . Reset  itaration  counters 

•daf/i  pats  *«  1 
•daf/i  tot.iters  **  1 

a 

• * . . Update  currant  tima 

a 

•daf/d  t.vils  **  «t>  ♦ <th_dt» 

•daf/d  t *»  <<t>  ♦ <dt»  • can  ba  altered  by  path.scale 

•stop 


. . . . Check  for  max  tiaa  and  aax  steps 


•if  «t>  /gt  <max_tine>  > /than 

•remark  •••••••••••••••••••••••••••••♦•*e***********e*ea*e***e*e***a 

•remark  * 

•remark  • Maximum  problem  tima  <max_time>  reached  or  exceeded, 

•remark  • Computation  terminated 

•remark  • 

•remark  •••••e*e****e**ee*****e**ee*ee**e***e**ee**e*****ee********* 
•jump  to  :EXIT 
•endif 


•if  «step>  /eq  «nax_steps>-  l»/then 

•remark  ••♦•••••****e*e*e*****eee**ee*ee***e***ee**********e*ee*******e*e**e* 
•remark  • a 

•remark  • Maximum  steps  <nax_steps>  exceeded.  * 

•remark  • Problem  time  is  <t>  • 

•remark  * * 

•remark  •**••**••*••••**••***•••*•••••***«»«**«**•**•**•**********♦*****♦**** 
•jump  to  :EXIT 
•endif 


. . . . Reset  step  counter  for  datasets  to  step  «step>  ♦ 1> 
•call  DEFND  ( STEP  * «STEP>  ♦ 1>;  ITER«1) 

. . . . Compute  nev  historical"  displacement  d.tilde 
[XQT  TEC 

<a„th>  <-  <th_dt>  <v_n>  ♦ <h_mb_th>  <a_n> 

<d_tilde>  <-  <d_n>  ♦ <a_th> 

. . . . Compute  nev  external  force  for  step  n+1 
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♦call  [FT.proc]  ( T « <t.wils>  ; 

FT.  args  ■ [ft.args]  5 
F.mac  » lambda.npl 


♦call  FORCE  ( type 

nl.geoa 
nl.load 
diaplacaaant 
rotation 
corotation 
load.factor 
input .lore# 
output  .1  ore • 


EXTERNAL 

[nl.geoa] 

<truo> 

<d.n> 

<T.n> 

[corotation] 
<lambda.npl> 
<F_ref> 
<F.ext>  ) 


) 


. Problem  time 
. For co- time  parameters 
. External  forcing  scale  factor 


. . . . Set  internal  force  if  Wilson’s  constant  is  not  unity 


♦ if«theta>  /ne  l.>  /then 
♦call  FORCE  ( type 

nl.geoa 
nl.load 
displacement 
rotation 
corotation 
load.factor 
input. force 
output .force 

♦endif 


« INTERNAL 

* [nl.geom] 

* <true> 

» <d.n> 

* <T.n> 

* [corotation] 

* <lambda.npl> 
b <F.ref > 

* <F.int>  ) 


. . . . Weighted  sum  of  internal  and  external  force 


[XQT  TEC 

<f.bar>  <-  <th.b>  <F.ext>  ♦ <a.th.b>  <F.int> 
PROD  <mass>  <d.n>  ->  <f.tilde> 

<f.tilde>  <-  <f.tilde>  + <f.bar> 


• • . • Compute  new  initial  estimate , displacements 
[XQT  TEC 

<delta>  <-  <d_tilde>  - <d.n> 

<delta>  <-  <delta>  ♦ <th.b>  <a.n> 

<d.npl.i>  <-  <d.n>  ♦ <delta> 

ROTATE  <T.n>  ♦ <delta>  ->  <T.npl.i> 

• . . . End  Step  LOOP 


: STEP. LOOP 
:EXIT 
♦end 

. bDECK  CHXCNTD 
♦procedure  CHKCNTD 


STEP 

ITER 

DISPLACENENT.INC 

RESIDUAL.FORCE 

TOL.E 


. input 
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HAI.ITERS  ; — 

CONVERGENCE.CONVERGENCE  ; — . output 
DIVERGENCE  ■DIVERGENCE  ) 

[XQT  VEC 

. . Initial izo 
• 

•def/i  [CONVERGENCE]  **  <FALSE> 

•def/i  [DIVERGENCE]  » <FALSE> 

•if  [ITER]  /gt  1 /than 

*def/d!2.4  ERR_E_I  **  <ERR_E_IP1> 

•endif 


. . Compute  Current  Incremental  Energy  Non 

DOT  [RESIDUAL.FORCE]  * [DISPLACEMENT. INC]  ->  INC_E_IP1 
•i 1 [ITER]  /le  1 /then 

•if  <ABS(<INC_E_IP1>)>  /gt  <REF_E>  /then 
•def/dl2.4  REF.E  »«  <ABS(<INC_E_IP1»> 

••ndif 

•def/i  nua.diverges  *s  0 

••ndif 

. . Compute  Error  Nom 

•def/d!2.4  ERR.E.RAW  *=  < <INC_E_IP1>/<REF_E>  > 
•def/dl2.4  ERR_E_IP1  **  < <ABS(<ERR_EJUV>)>*  .5  > 

. . Chock  for  displacenent  convergence 

•if  < <ERR.E_IP1>  /!•  [TOL.E]  > /then 

...  Step  Converged 

•DEF/I  [CONVERGENCE]  ==  <TR0E> 

•jump  to  sBOTTON.LINE 
••ndif 

•if  < [ITER]  /le  1 > :BOTTOM.LINE 

. • . Step  Not  Converged;  Check  for  Divergence 

•IF  < <ERR_E_IP1>/<ERR_E_I>  /GT  1.0  > /THEN 
•def  nua.di verges  < <nun_diverges>+l  > 

•if  <nun.divergee>  /gt  1 /then 
•DEF/I  [DIVERGENCE]  « <TRUE> 

•ENDIF 
•END IF 
:B0TT0M_LINE 

•def/el2.4  load.f actor  * <lanbda_npl> 

•renark 

•renark  

•renark  ITERs [ITER]  T*<t>  LD=<load_lactor> 

•renark  ERR=<err.e.ipl>  REF*<ref.e> 
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*rratrk 

•raaark 

•END 

. sDECK  DEFND 

•procadura  DEFND  ( stap;  itar  ) 

. Purposa:  Dafina  basic  nacro.syabols  lor  NL.DTNAMIC  procadura 

•dal/i  npl  * [stap] 

•daf/i  n « < <npl>-l  > 

•if  [itar]  /aq  0 /than  . run  initialization 

•daf/i  NS.ldi  •«  1 

•daf/i  NON.ldi  **  3 

•daf/i  isat  «*  1 

•daf/i  icon  *»  1 

•daf/a  l.spac  **  APPL.FORC.<isat>. 1 
•dal/ft  d.spac  **  APPL.MOTI .<isat> . 1 

• Chock  for  Spaciliad  Displacaaant  Loading 

•find  datasat  <NS_ldi>  <d_apac>  /saq=id» 

•if  < <ida>  /gt  0 > /than 

•Raaark  Nota:  Spaciliad  displacaaant  datasat  <d_spsc>  will  ba  usad 
•daf/i  spac.disp.f lag  *=  <trua> 

•alsa 

•daf/i  spac.disp.f lag  ==  <falsa> 

•andif 

•daf/a  F_raf  « REF.FORC 

•daf/a  f.axt  « EZT.FORC 

•daf/a  f.int  *«  INT.FORC 

•daf/a  aass  »*  M.DIAG 

•daf/a  inv.aass  « MINT.DIAG 
•daf/a  R.npl.i  *=  RES.FORC 
•daf/a  R.npl.ipl  **  RES.FORC 
•daf/a  d.inc.i  « INC.DISP 
•daf/a  d.inc.ipl  «=  INC.DISP 
•daf/a  v.inc.i  INC.VEL 

•daf/a  v.inc.ipl  «*  INC. TEL 
•daf/a  daltaJTH  **  THET.DISI 
•daf/a  a.TH  ««  THET.ACC 

•daf/a  dalta  »«  TOT.DISI 

•daf/a  d.tilda  «*  TILD.DISP 
•daf/a  f.tilda  *«  TILD.FORC 
•daf/a  fjbar  **  BAR.FORC 

•daf/a  K.asa  « K 

•daf/a  K.fac  ==  K 

•daf/a  N.p.K  ««  NpK 

Ratriava  Control  Paranatars  Iron  DATA.BASE 

•if  [stap]  /aq  1 /than 

•daf/d  t_n  ss  <bag_tiaa> 
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•def/ i S lgn.de t mm  1 
♦def/d  ref_e  *»  0.0 
♦def/d  lambda.n  **  0.0 

•Remark  STARTING  PARAMETERS  INITIALIZED. 

•else 

•open  <N0M.ldi>  <N0K.DB> 

♦find  dataset  <nom_ldi>  <nom.ds>  /seq=nom.ids 
*g2m  /nu«»t.n  /type*D  <nom_ldi>  <noa_ids>  TIME.<n> 

•g2n  /name*asign_det_n  /type*I  <nom_ldi>  <nom_ids>  SIGN.DET.<n> 

•g2a  /names =lambda_n  /type=D  <noa_ldi>  <nom_id»>  L0AD.<n> 

•g2m  /nui>>r«f.«  /type*D  <nom.ldi>  <nom.ids>  REF.ERR.<n> 

•close  <N0M_ldi> 

•Remark 
•remark 
•re aark 
♦Remark 
♦Remark 
♦Remark 
♦Remark 
♦remark 
♦remark 
♦endif 
♦endif 

. Define  Global  Datasets  for  Upcoming  Step 

♦def/a  d_n  ««  T0T.DISP.<n> 

♦def/a  d.npl.i  as  T0T.DISP.<npi> 

♦def/a  d.npl.ipl  **  T0T.DISP.<npl> 

♦def/a  v_n  =a  TOT . TEL . <n> 

♦def/a  v_npl  *a  TOT. PEL. <npl> 

♦def/a  a.n  a*  T0T.ACC.<n> 

♦def/a  a_npl  as  TOT. ACC.<npl> 

♦def/a  T_n  ««  T0T.R0TN.<n> 

♦def/a  T.npl.i  s*  T0T.R0TN.<npl> 

♦def/a  T.npl.ipl  *s  T0T.R0TN.<npl> 

♦end 

. -DECK  FT .ZERO 

♦procedure  FT. ZERO  ( t ; ft.args  ; F.mac  ) 

. • . . Provide  for  zero  dependence  of  force  on  tine  (no  external  forces) 
♦def/d  [F.mac]  **  0. 

•end 

. *DECK  FT.LIN 

♦procedure  FT.LIN  ( t ; ft.args  ; F.aac  ) 

. . . . Provide  piecewise  linear  forcing  function 
♦def/d  ft.args [1:5]  = [ft.args] 


RE-START  PARAMETERS: 

TIME  a <t_n> 

SIGN.DET  (n)  = <sign_det_n> 

LOAD  a < lambda. n> 
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• i f <[t]  /la  <ft.arga[2]»  /then 
adaf/d  [F.nac]  mu  0. 
aelaei  1 <[t]  /It  <f  t.arga  [3]>>  /than 

•dal/d  c.f  act  * «ft_arga[3]>“<ft.arga[2]» 

•if  «c.fact>  /la  0.>  /than 

•def/d  [F.nac]  »*  <ft.arga[l]> 

•alia 

adaf/d  [F.nac]  **  «<  [t] -<f  t.arga  [2]  » • — 
<ft.arga[l]»/<c_fact» 

*andif 

•elaeif  <[t]  /la  <ft_arga[4]»  /than 
adaf/d  [F.nac]  »=  <ft.arga[i]> 
aalaalf  <[tl  /It  <f t.arga [6] » /than 

«daf/d  c.f act  * «ft.arga[6]>-<ft.arga  [4]» 

•if  «c.fact>  /la  0.>  /than 
adaf/d  [F.nac]  »*  0. 

•alsa 

adaf/d  [F.nac]  **  ««f  t.arga  [B]>  - [t]>  * — 
<f t.arga  [1]  »/<c.f  act» 

•andif 

aalaa 

adaf/d  [F.nac]  **  0. 

•andif 


•and 

. »DECK  FT.SIM 

aprocadura  FT.SIN  ( t ; ft.args  ; F.nac  ) 

adaf/d  ft.arga[l:6]  « [f t.arga] 

Piaceviae  ainuaoidal  forcing  function 

•if  <[t]  /ga  <f t.arga [6] » /than 
adaf/d  [F.nac]  * 0. 

•alsalf  <[t]  /ga  <f t.arga  [6] » /than 
*if  «f  t.arga  [3]  > /la  0.>  /than 
*dal/d  [F.nac]  **  0. 
aalaa 

adaf/d  tc  * «<[t]  - <ft.arga  [4]»a<pi»/<ft.arga[3]» 
adaf/d  [F.nac]  »*  «ft.arga[2]>  + <coa(<tc>)>  * <ft.arga[l]» 
•andif 

aalaa 

*daf/d  [F.nac]  »■  0. 

•andif 


*and 

. =DECK  FT.EXP 

aprocadura  FT.EXP  ( t ; ft.arga  ; F.nac  ) 
....  Exponential  docay 
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*def/d  ft_argsLl:3J  = [ft.args] 

•i  f <[t]  /It  <ft_args[2]»  /then 
*def/d  [F.aac]  ■=  0. 

•else 

•dal/d  apl  * < . 6931471806/ <f t.args [3] » 

*def/d  axl  * «apl>*<[t]  - <ft.args[2]»> 
*def/d  [F.aac]  «■  «ft.args[l]>*  <EXP(-<axl>)» 
•andif 


•and 

. *DECK  NL.INITD 
•procedure  NL.INITD  ( ldi*l  ) 


PERFORM  STANDARD  INITIALIZATION 


•call  INITIALIZE  ( constraint. sat  * <icon>  ) 


CLEAR  INITIAL  DISPLACEMENTS  AND  ROTATIONS  ( n = 0 ) 


*g2a  /nan e*nu* .nodes  /type=i  [ldi]  MODEL . SUMMARY  NUM. NODES 

•g2a  /naaa*nua.dofs  /typa=i  [ldi]  MODEL . SUMMARY  NUM.DQFS 

•Renark  Problaa  Diaansions:  N.nodes  = <mm_nodes>,  N.dofn  = <nua_dofs> 

♦find  datasat  <NS.ldi>  <d_n>  /seq=ids_disp 

•if  < <ids_disp>  /gt  0 > /than 

•Renark  Not a:  Initial  displacaaent  dataset  <d.n>  will  ba  used 

♦else 

INIT.VEC  <d.n>  <nun.dofs>  BY  <nua_nodes>  . Zeroize  translations 
•Renark  Displacaaants  (<d_n>)  initialized. 

•andif 

•find  datasat  <NS.ldi>  <T.n>  /seqsids.rotn 
•if  < <ids.rotn>  /gt  0 > /than 

•Raaark  Note:  Initial  rotation  datasat  <T.n>  will  ba  used 

•else 

INIT.VEC  <T.n>  3 BY  <nun.nodes>  . Zaroiza  rotation  pseudo vectors 

•Raaark  Rotations  (<T_n>)  initialized. 

•andif 

•find  datasat  <NS.ldi>  <v_n>  /seq*ids_vel 
•if  < <ids_vel>  /gt  0 > /than 

•Raaark  Note:  Initial  velocity  datasat  <v_n>  will  ba  used 

•else 

INIT.VEC  <v_n>  <nua.dofs>  BY  <nua.nodes>  . Zaroiza  velocity 
•Raaark  Velocities  (<v_n>)  initialized. 

•andif 

•find  datasat  <NS.ldi>  <a.n>  /saq»ids.acc 
•if  < <ids.acc>  /gt  0 > /than 

•Raaark  Note:  Initial  acceleration  dataset  <a.n>  will  ba  used 

•else 

INIT.VEC  <a_n>  <nua.dofs>  BY  <nun.nodes>  . Zaroiza  acceleration 
•Raaark  Accelerations  (<a_n>)  initialized. 

•andif 
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. FORM  INITIAL  (BASE-LOAD)  EXTERNAL-FORCE  VECTOR 

•call  FORCE  ( typ.  ■ EXTERNAL  ; — 

input. lore#  * <f_spac>  ; — 
output. lore#  * <F_raf > ) 


Fora  mats  and  invars#  mass  (diagonal  lorn) 


•ranark 

*ranark  MISS  bypass ad  for  tasting  purposas  dafinad  in  BASE.DBC 
•ranark 

•call  MASS  ( typa  * DIAGONAL  ; — 

mass  « <nass>  ) 

[XQT  NEC 

DIAG.INV  <aass>  ->  <inv_nass> 

•and 

. -DECK  MASS. STIFF 

•procadura  MASS.STIFF  ( nass  ; — . diagonal  mass  vactor 

st if  ; — . assanblad  stiff nass 

ault  ; — . tha  dynamic  weighting  factor 

M.p.K  ) . tha  dynamic  oparator 

[XQT  AUS 

DEFINE  M * <NS.ldi>  M DIAG 
DEFINE  K « <NS_ldi>  [STIF]  SPAR  36 
[M.p.K]  SPAR  36  ■ SUM(Mt  [MULT]  K) 

•and 

. -DECK  POSTRES 
•procadura  POSTRES  ( stap  ) 

[XQT  YEC 

•find  datasat  <NOM.LDI>  <N0M.DS>  /saq-post.ids 
•if  < <post_ids>  /la  0 > /than 

•put  datasat  <M0M_LDI>  <N0M_DS>  /nrat*2000  /saq-post.ids 
•andif 

a 

. Sava  salactad  displacaaants  on  nominal  data-basa 

•daf/a  dof.naaas  « U,  Y,  W,  RUf  RV,  RV 

•do  lisal  « 1,  <N.SELECT> 

•daf/i  noda  » <SEL.N0DES[<6isal>]> 

*daf/i  dof  * <SEL_DOFS[<$isal>]> 

•daf/a  dof.nama  » <dof _namas [<dof >] > 

COMPONENT  <noda>  <dof>  TOT. DISP . [stap]  ->  DISP 
•daf/a  racd.nana  « DISP_<dof_nana>_<noda>. [stap] 

•Ram ark  <racd.nama>  - <DISP> 

•n2g  /nana-disp  /typa-d  <noa_ldi>  <post_ids>  <racd_nana> 

Sava  Raaction  Forcas  for  Currant  Stap 
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REAC.FORC. [step]  <-  INT.FORC 
•if  < [step ] /eq  0 > /then 
REAC.FORC. 0 <-  0.0 

••ndif 

•if  < <spec_disp.xlag>  > /then 

COMPONENT  <node>  <dof>  REAC.FORC. [step]  ->  FORCE 
•def/a  recd.name  * F0RCE.<dof .name>.<node> . [step] 

•Remark  <recd.name>  * <P0RCE> 

•m2g  /namexforce  /type=d  <non.ldi>  <post.ids>  <recd.name> 

••ndif 

••nddo 

••nd 

. *DECK  POSTSTPD 

•procedure  POSTSTEP  ( step;  iter  ) 

•Renark  

•Renark  STEP  [step]  SUMMARY  : 

•Remark  

•Remark  Load  Factor  <lambda.npl> 

•Remark  Stiffness  determinant  <coef_det>  • 10  * <expl0.det> 

•Remark  Number  of  negative  roots  <num.neg> 

•Remark  Relative  energy. error  <err_e.ipl> 

•Remark  Number  of  Iterations  <nun.iters> 

•Remark  Number  of  Step  Cuts  «pass>-l> 

•Remark  Total  Number  of  Iterations  <tot.iters> 

•Remark  

•open  <N0M.ldi>  <N0M.DB> 

•if  < [step]  /eq  1 > /then 
•call  POSTRES  ( step  ■ 0 ) 

•def/d  load.OsO. 

•m2g  /namesload.O  /type=d  <N0M.LDI>  <N0M.DS>  LOAD. 0:0 
••ndif 

•call  POSTRES  ( steps [step]  ) 

•find  dataset  <N0M.LDI>  <N0M.DS>  /seq=non.ids 

•m2g  /name*lambda_npl  /type=d  <nom.ldi>  <nom.ids>  LOAD. [STEP] 

•m2g  /name»err.e.ipl  /type*d  <nom.ldi>  <nom.ids>  ERROR. [STEP] 

•m2g  /name*ref.e  /type=d  <nom.ldi>  <nom.ids>  REF. ERR. [STEP] 

•m2g  /name *s ign.de t /type*i  <nom.ldi>  <nom.ids>  SIGN.DET. [STEP] 

•m2g  /namescoef =det  /type=d  <non_ldi>  <nom_ids>  COEF.DET. [STEP] 

•m2g  /namesexplO.det  /type=i  <nom_ldi>  <nom_ids>  EXP10.DET. [STEP] 

•m2g  /namesnum.neg  /type=d  <nom.ldi>  <nom.ids>  NEG.ROOTS . [STEP] 

•m2g  /namesnum. it ers  /type=i  <nom.ldi>  <nom.ids>  NUM. ITERS . [STEP] 

•m2g  /name*tot. iters  /type*i  <nom.ldi>  <nom_ids>  TOT. ITERS . [STEP] 

•m2g  /name «t  /type=i  <nom.ldi>  <nom.ids>  TIME. [STEP] 

•def/i  passml  « «pass>-l> 

•m2g  /name spas sml  /type=i  <nom.ldi>  <nom.ids>  NUM.CUTS . [STEP]  . cglf  7/26/88 
•close  <N0M.ldi> 

•end 
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4.G  Application  Procedures 

The  procedures  documented  in  this  chapter  are  representative  of  the  types  of  procedures 
that  may  be  written  to  solve  specific  application  (structural  analysis)  problems.  Many  of 
these  high-level  procedures  invoke  other  (lower-level)  procedures  to  perform  preprocessing, 
solution,  and  postprocessing  functions;  which  are  described  elsewhere  in  this  manual.  The 
use  of  procedures  to  perform  structural  analysis  applications  can  provide  users  flexibility 
for  parameterizing  geometric  data  ( e.g .,  stiffener  spacing)  as  well  as  spatial  discretization 
parameters  (e.g.,  number  of  elements).  The  problems  represented  here  are  also  intended 
to  serve  as  part  of  a standard  series  of  test  problems  to  assess  new  structural  elements 
installed  in  the  CSM  Testbed. 

A summary  of  the  procedures  found  in  this  chapter  is  provided  in  Tables  4.0-1. 
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Table  4.0-1.  Summary  of  Application  Procedures 

Procedure  Name 

Problem  Description 

CLAMPED  .BEAM 

Transient  response  of  a clamped  beam  modeled  with  2-D 
shell  elements. 

COMPRESSED.CYL 

Classical  buckling  and  postbuckling  analysis  of  an  axially 
compressed  cylindrical  shell;  modeled  with  shell  elements 
and  initial  imperfections. 

COOKS _MEM 

Linear  in-plane  bending  response  of  a wing-like  trape- 
zoidal plate  modeled  with  shell  elements.  (Referred  to 
as  Cook’s  membrane  problem  in  the  literature.) 

ELASTICA 

Classical  large  rotation  analysis  of  a cantilevered  beam 
with  an  applied  end  moment.  Final  configuration  is  a 
complete  circle  — with  360  degrees  rotation  at  the  free 
edge.  Modeled  with  shell  elements. 

EULER.C0LUMN 

Inplane  buckling  of  a column  modeled  with  2-D  shell  ele- 
ments. An  overall  Euler  buckling  modeshape  is  obtained. 

FOCUS  .PANEL 

Analysis  of  the  composite  blade-stiffened  panel  with  a dis- 
continuous center  stiffener. 

FREE.EDGE 

Free-edge  stress  analysis  of  a 4-ply  composite  laminate. 

GEN_STF_PANEL 

Linear  buckling  analysis  of  stiffened  panel  configurations 
subjected  to  combined  in-plane  compression  and  shear 
loading.  Configurations  considered  include  flat  rectangu- 
lar panels  with  hat-stiffeners,  z-stiffeners  and  blade  stiff- 
eners, as  well  as  a corrugated  panel.  Modeled  with  shell 
elements. 

HINGED.CYL 

Postbuckling  (nonlinear)  analysis  of  a hinged  cylindrical 
shell  subjected  to  concentrated  transverse  load.  Shell  ex- 
hibits snap-through  buckling  behavior  and  requires  a so- 
lution algorithm  employing  arc-length  step  control.  Mod- 
eled with  shell  elements. 
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Procedure  Name 

Problem  Description 

PEAR.CYL 

Buckling  analysis  of  a pear-shaped  cylindrical  shell  sub- 
jected to  axial  compression.  Modeled  with  shell  elements. 

PINCHED.CYL 

Linear  inextensional  bending  of  a thin  pinched  cylindri- 
cal shell.  Modeled  with  shell  elements;  two  opposing 
radial  forces  applied  at  center;  and  both  free  and  rigid- 
diaphragm  edges  considered.  (MacNeal-Harder  case) 

PW_H0LE 

Linear  elastic  stress  analysis  of  a rectangular  isotropic 
plate  with  a central  circular  hole. 

RECT.PLATE 

Eigenvalue  (vibration  and  buckling)  analyses  of  a rect- 
angular plate  subjected  to  various  inplane  loading  condi- 
tions. 

RHOMBIC-PLATE 

Linear  bending  of  a simply  supported  rhombic  plate  under 
constant  pressure.  (MacNeal-Harder  case) 

TRUNCATED-CONE 

Linear  transient  dynamic  analysis  of  impulsively  loaded 
truncated  cone. 

VIB.2D 

Vibration  analysis  of  a bar,  beam,  or  ring  modeled  with 
2-D  shell  elements. 
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4.1  Processor  CLAMPED_BEAM 


THIS  SECTION  UNDER  PREPARATION 
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4.2  Procedure  COMPRESSED.CYL 

4.2.1  GENERAL  DESCRIPTION 

4. 2. 1.1  Problem  Description 

This  application  problem  involves  the  static  buckling  and  postbuckling  analysis  of  a thin 
cylindrical  shell  (R/i  « 300)  simply  supported  along  its  edges,  and  subjected  to  uniform 
axial  compression  (see  Figure  4.2-1).  It  is  a particularly  important  classical  problem  for 
testing  linear  and  nonlinear  performance  of  shell  elements,  as  well  as  solution  algorithms 
capable  of  traversing  non-monotonic  load-displacement  curves.  A noteworthy  feature  of 
the  problem  is  that  the  buckling  eigenvalues  of  the  cylindrical  shell  are  very  closely  spaced, 
even  though  the  mode  shapes  are  radically  different.  This  can  pose  a challenge  for  both 
eigensolvers  and  nonlinear  solution  algorithms  — which  are  expected  to  find  and  maintain 
the  physically  dominant  (lowest-energy)  mode.  (It  is  interesting  that  the  buckling  char- 
acteristics of  this  simple  cylindrical  shell  problem  have  much  in  common  with  the  more 
practical  problem  of  an  optimally-stiffened  cylinder,  which  also  has  many  diverse  mode 
shapes  occurring  at  the  same  critical  load  level.)  Another  noteworthy  feature  is  that  such 
problems  tire  notoriously  imperfection  sensitive.  Thus,  a small  initial  geometric  imperfec- 
tion can  cause  a substantial  reduction  in  the  peak  axial  load  capacity,  compared  with  the 
classical  critical  buckling  load  corresponding  to  a perfect  cylinder.  This  implies  that  the 
model  must  be  refined  enough  to  represent  the  initially  imperfect  configuration,  as  well  as 
the  finally  deformed  configuration. 


Figure  4.2-1  Compressed  Cylinder  Problem. 
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4. 2. 1.2  Model  Description 

Procedure  COMPRESSED.CYL  employs  a partial  (L/ 10  x 15°)  shell-element  based  model  of  the 
cylindrical  shell  to  capture  both  linear  and  nonlinear  response.  A typical  model  is  shown 
in  Figure  4.2-2.  The  mesh  is  rectangular  in  topology,  and  restricted  to  quadrilateral  shell 
elements  of  either  4-  or  9-node  variety.  Symmetry  conditions  on  all  but  the  one  edge  that 
is  simply  supported  enable  the  model  to  represent  the  lowest  energy  buckling  mode  with  a 
relatively  small  number  of  elements.  This  particular  (“diamond”)  mode  shape  consists  of 
5 axial  half-waves  and  12  circumferential  whole  waves  over  the  entire  cylinder  (in  classical 
terminology:  m=5,  n=12).  Thus,  the  partial  model  will  contain  1 axial  quarter-wave  and 
1 axial  half-wave,  and  less  than  10  shell  elements  should  be  required  in  each  direction  to 
obtain  engineering  accuracy.  The  axial  force  is  distributed  evenly  and  consistently  on  the 
simply  supported  edge;  and  is  scaled  so  that  the  magnitude  corresponds  to  the  classical 
buckling  load. 

4. 2. 1.3  Analysis  Description 

The  analysis  is  conducted  in  stages,  some  of  which  are  optional.  First,  a linear  buck- 
ling (eigenvalue)  analysis  is  performed  (using  procedure  L_STABIL_l).  Due  to  the  selected 
magnitude  of  the  applied  load,  the  lowest  eigenvalue  should  be  close  to  1 (for  a sufficiently 
refined  mesh).  Next,  the  buckling  mode  corresponding  to  the  lowest  (critical)  eigenvalue 
is  scaled  and  used  to  perturb  the  geometry.  This  is  achieved  by  adding  the  scaled  radial 
displacements  to  the  initial  finite  element  nodal  coordinates.  The  scale  factor  is  selected 
so  that  the  maximum  radial  perturbation  is  some  percentage  of  the  shell  thickness  (see 
procedure  IMPERFECTION).  This  initial  imperfection  is  necessary  to  trigger  a realistic  post- 
buckling  response  in  the  nonlinear  analysis.  Due  to  the  extreme  imperfection  sensitivity 
of  thin  axially-compressed  cylinders  (e.y.,  see  ref.  4.2-3)  as  little  as  a 1%-thickness  im- 
perfection is  adequate  to  trigger  such  a response  (although  a 10%-thickness  imperfection 
is  recommended).  The  nonlinear  (post buckling)  analysis  is  then  begun  (using  procedure 
NL_STATIC_l).  A reasonable  description  of  the  load-displacement  history  can  usually  be 
obtained  with  about  20-30  load  steps,  from  a starting  load  of  about  one-tenth  of  the 
classical  buckling  load. 

4. 2. 1.4  Available  Solutions 

Analytical  solutions  are  available  for  the  buckling  (eigenvalue)  analysis  (e.y.,  see  ref.  4.2- 
1).  Several  of  the  buckling  modes  corresponding  to  the  classical  stability  solution  are 
shown  in  Figure  4.2-2  (Figure  6.9  of  ref.  4.2-2)  using  finite-element  meshes.  Note  that  the 
critical  loads  (or  eigenvalues)  for  these  diverse  mode  shapes  - smooth,  axisymmetric,  and 
diamond-pattern  - are  within  5%  of  one  another.  While  there  are  no  closed-form  solutions 
for  the  nonlinear  postbuckling  response  of  the  axially-compressed  cylindrical  shell,  there 
are  approximate  solutions  for  the  “knock-down”  factor  corresponding  to  a given  initial 
imperfection,  and  various  numerical  solutions  are  given  in  the  CSM  Testbed  Applications 
Manual  (see  ref.  4.2-4).  Figure  4.2-3  gives  a sampling  of  these  numerically  obtained 
response  curves,  for  different  magnitudes  of  initial  imperfection  (50%,  10%  and  1%  of 
the  shell  thickness).  Note  that  with  only  a 10%-thickness  imperfection,  the  peak  load  is 
“knocked- down”  to  approximately  70%  of  the  value  for  a perfect  (unattainable)  shell. 
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CLASSICAL  BUCKLING  PROBLEM 


Figure  4.2-2  Buckling  of  Axially-Compressed  Cylinder: 

Generic  Problem  Description 


Figure  4.2-3  Postbuckling  of  Axially-Compressed  Cylinder: 
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4.2.2  PROCEDURE  USAGE 

Procedure  COMPRESSED_CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive,  and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  ar- 
guments are  order-independent,  and  most  have  default  values  thus  making  them  optional. 
The  formal  syntax  is  as  follows: 


*call  COMPRESSED.CYL  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  COMPRESS.CYL  are  summarized  in  the  following 
table,  along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults 
are  generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to 
this  rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES.PR0C 

ESI 

Element  Processor 

ES.NAME 

EX97 

Element  name 

ES.PARS 

0. 

Element  research  parameters 

NN0DES.A 

5 

Number  of  axial  nodes 

NNODES-C 

5 

Number  of  circumferential  nodes 

SPECLDIS 

<false> 

Specified  displacements 

PRE-STRESS 

<false> 

Constant  pre-stress 

AUTO_DOF_SUP 

<true> 

Automatic  d.o.f.  suppression 

DRILLING.D0F 

<false> 

Drilling  (normal  rotational)  freedoms 

BC-PROCEDURE 

CC-BC 

Boundary  condition  procedure 

NSTEPS 

30 

Number  of  nonlinear  load  steps 

BEG.STEP 

1 

Starting  load  step  number 

MAX-CUTS 

3 

Maximum  number  of  step  cuts  (halvings) 

BEGJLOAD 

.1 

Starting  load  factor 

MAX-LOAD 

1.0 

Maximum  load  factor 

DBC 

CC.DBC 

Computational  database  name 

DBR 

CC.DBR 

Results  database  name 

PREP 

<true> 

Perform  pre-processing  (model  generation) 

STABILITY 

<true> 

Perform  linear  stability  (buckling)  analysis 

IMPERFECTION 

<true> 

Superpose  imperfections  from  (buckling)  analysis 
before  performing  nonlinear(postbuckling)  analysis 

NUM-IMP -MODES 

1 

Number  of  buckling  modes  used  in  creating 
imperfection 

IMP-MODES 

1 

Mode  numbers  used  in  creating  imperfection 

IMP_AMPS 

.1 

Mode  amplitudes 

NONLINEAR 

<true> 

Perform  nonlinear  (postbuckling)  analysis 

POST 

<false> 

Perform  post-processing  (selected  data  archival) 
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4.2.3  ARGUMENT  DESCRIPTIONS 

4. 2.3.1  APT0-D0F.SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffnesses  (see 
argument  DRILLINGJDOF). 

4. 2.3. 2 BC-PROCEDPRE 

Boundary  condition  procedure  name  (default:  CC_BC  for  specified  forces;  CCD_BC  for  spec- 
ified displacements).  The  term  “boundary  conditions”  refers  both  to  displacement  con- 
straints and  applied  loading.  Procedures  CC_BC  and  CCD_BC  both  have  the  same  zero 
displacement  constraints.  The  only  difference  is  that  the  former  procedure  applies  axial 
forces  to  the  simply  supported  edge,  while  the  latter  procedure  prescribes  non-zero  axial 
displacements  on  that  edge.  The  argument  BC_PROCEDURE  permits  you  to  to  supply  your 
own  boundary  condition  procedure,  but  keep  in  mind  that  this  may  drastically  change  the 
problem  definition,  and  hence  invalidate  most  of  the  discussion  under  Section  4.2.1. 

4. 2.3. 3 BEG-LDAD 

Starting  load  factor  in  nonlinear  analysis  (default= . l).  This  factor  is  multiplied  times  the 
reference  load  vector  to  obtain  the  starting  load  vector.  For  example,  if  specified  forces  are 
applied  (which  is  the  default  option),  then  BEG-LOAD  — .1  means  that  the  first  load  step  to 
be  computed  in  the  nonlinear  analysis  will  be  at  one-tenth  of  the  classical  buckling  load 
level.  Note  that  this  argument  is  irrelevant  for  re-start  runs.  For  more  details,  refer  to  the 
same  argument  name  under  solution  procedure  NL-STATIC-1. 

4. 2.3. 4 BEG-STEP 

Number  of  starting  load  step  in  nonlinear  analysis  (default=l).  This  is  the  number  of  the 
first  step  to  be  computed  during  an  analysis  interval.  When  starting  a nonlinear  analysis, 
the  first  step  is  obviously  1.  When  re-starting  (*.e.,  continuing  in  a subsequent  run)  a 
nonlinear  analysis,  BEG.STEP  should  be  set  to  the  number  of  the  next  step  to  be  computed 
— not  to  the  number  of  the  last  step  computed.  The  solution  procedure  (NL_STATIC_l) 
will  automatically  use  any  previous  step(s)  required  to  continue  the  analysis  — providing 
the  necessary  steps  are  available  in  the  database.  Currently,  the  number  of  consecutive 
preceding  steps  required  for  a restart  is  three.  For  more  details,  refer  to  the  same  argument 
name  under  solution  procedure  NL_STATIC_1. 

4. 2.3. 5 DBC 

Name  of  computational  database  file  (default=CC.DBC).  This  file  will  contain  all  model 
definition  data,  element  computational  data,  one  copy  of  the  assembled  and  factored  stiff- 
ness matrices,  the  buckling  eigensolution,  and  displacement  and  internal  force  vectors  for 
every  load  step  computed  during  the  analysis. 
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4.2.3.0  DBR 

Name  of  results  database  file  (default=CC.DBR).  This  file  will  contain  one  dataset  called 
RESPONSE. HISTORY  generated  during  nonlinear  analysis.  The  dataset  will  contain  record 
groups  — indexed  by  load  step  number  — for  a number  of  solution  parameters,  including 
the  load  factor  and  maximum  axial  displacement  components.  This  database  is  valuable 
for  obtaining  load-displacement  plots,  and  for  evaluating  the  performance  of  the  nonlinear 
solution  strategy  employed. 

4.2.3.T  DRILLING-DOF 

Drilling  degree  of  freedom  flag  (default:  <false>).  Drilling  freedoms  are  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  off  forces  all  drilling  freedoms 
in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be  active  — 
unless  they  are  automatically  suppressed  using  use  of  the  AUT0_D0F_SUP  argument.  Note 
that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with  their 
own  surface-normal  directions  (at  nodes),  when  shell  elements  are  assembled  as  facets  ap- 
proximating an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  (e.g.f  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLING-DOF  argument  should  be  set  to  <true>  regardless  of  how  AUTO-DOF-SUP  is 
set. 

4. 2.3. 8 ES-NAME 

Element  name  (default:  EX97).  This  argument  is  the  name  of  the  specific  shell-element  type 
you  wish  to  select,  within  the  element  processor  defined  by  argument  ES-PROC.  The  default 
shell-element  type,  EX97,  is  a 9-noded  quadrilateral  element  implemented  in  Processor  ESI, 
and  described  in  The  Computational  Structural  Mechanics  Testbed  User’s  Manual  (see  ref. 
4.2-1). 


4.2.3.0  ES-PARS 

Element  research  parameters  (default:  0 . , . . . ).  This  array  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

4.2.3.10  ES-PROC 

Element  Processor  (default:  ESI)  This  is  the  name  of  the  structural  element  (ES)  processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  Processor  ESI,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual. 
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4.2.3.11  IMPERFECTION 

Imperfection  superposition  flag  (default  <true>).  This  flag  should  be  turned  on  if  you 
want  geometric  imperfections,  corresponding  to  buckling  modes,  to  be  superimposed  on  the 
initial  geometry.  Pre-requisites  for  this  option  are  pre-processing  and  stability  analysis.  If 
you  are  just  starting  or  re-starting  a nonlinear  analysis  in  the  current  run,  and  imperfections 
have  already  been  superposed  in  a previous  run,  then  you  should  turn  this  flag  off. 

4.2.3.12  IMP-AMPS 

List  of  buckling  mode  amplitudes  to  be  used  in  generating  the  imperfection  (default=.l, 
10%  of  shell  thickness).  This  option  is  relevant  only  if  IMPERFECTION=<true>.  The  ampli- 
tudes in  this  list  are  interpreted  as  the  maximum  radial  displacement  to  add  to  the  initial 
nodal  coordinates  for  a given  buckling  mode.  Thus,  the  maximum  coordinate  perturbation 
due  to  a single  buckling  mode  will  occur  wherever  the  mode  shape  has  its  maximum  radial 
component. 

4.2.3.13  IMP-MODES 

List  of  buckling  mode  numbers  to  be  used  in  generating  the  imperfection  (default=l). 
This  option  is  relevant  only  if  IMPERFECTION=<true>.  The  numbers  in  this  list  should  be 
separated  by  commas,  and  there  should  be  a total  of  NUM-IMP -MODES  numbers. 

4.2.3.14  MAX-CUTS 

Maximum  number  of  load  step  cuts  in  nonlinear  analysis  (default=3).  For  more  details, 
refer  to  the  same  argument  name  under  solution  procedure  NL_STATIC_1. 

4.2.3.15  MAX-LOAD 

Maximum  load  factor  in  nonlinear  analysis  (default=l  .0).  This  sets  an  upper  limit  for  the 
load  level,  which  can  be  a convenient  way  of  terminating  the  arc-length  controlled  solution 
algorithm  employed  within  procedure  NL_STATIC_1.  Since  the  load  factor  is  actually  an 
unknown  in  this  solution  procedure,  there  is  no  way  of  knowing  a-priori  how  many  load 
steps  will  be  required  to  attain  a particular  load  level.  Thus,  the  analysis  will  be  terminated 
when  either  MAX-LOAD  is  exceeded  or  NSTEPS  is  exceeded  — whichever  comes  first.  For  more 
details,  refer  to  the  same  argument  name  under  solution  procedure  NL-STATIC.l. 

4.2.3.16  NNODES-A 

Number  of  axial  nodes  (default:  7).  This  is  the  number  of  nodes  you  wish  to  have  along 
the  axial  direction  of  the  cylindrical  shell  model,  i.e.,  along  one-tenth  of  the  full  cylinder’s 
length.  Note  that  this  number  should  be  consistent  with  the  number  of  nodes  per  element. 
For  example,  NNODES-A  can  be  any  number  greater  than  1 for  4-node  quadrilateral  elements, 
whereas  it  must  be  an  odd  number  greater  than  1 for  9-node  quadrilateral  elements. 
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4.2.3.17  MMODES-C 

Number  of  circumferential  nodes  (default:  7).  This  argument  is  the  number  of  nodes  you 
wish  to  have  along  the  circumferential  direction  of  the  cylindrical  shell  model,  i.e.,  along 
15  degrees  of  circular  arclength.  Note  that  this  number  should  be  consistent  with  the 
number  of  nodes  per  element.  For  example,  NN0DES_C  can  be  any  number  greater  than  1 
for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for 
9-node  quadrilateral  elements. 

4.2.3.18  NONLINEAR 

Nonlinear  (postbuckling)  analysis  flag  (default=<true>).  This  flag  should  be  turned  on 
if  you  want  to  perform  nonlinear  analysis  in  the  current  run.  The  pre-requisites  are  pre- 
processing, stability  analysis  and  imperfection  superposition,  all  of  which  may  be  performed 
either  in  a previous  run  or  in  the  current  run  — by  setting  the  appropriate  arguments  ( :.  e . , 
PREP,  STABILITY  and  IMPERFECTION). 

4.2.3.18  NSTEPS 

Maximum  number  of  load  steps  to  be  computed  in  the  current  nonlinear  analysis  run 
(default=30).  For  more  details,  refer  to  the  same  argument  name  under  solution  procedure 
NL.STATIC.1. 

4.2.3.20  NUM-IMP _M0DES 

Number  of  buckling  modes  used  to  represent  geometric  imperfections  for  nonlinear  analysis 
(default=l).  This  option  is  relevant  only  if  IMPERFECTION=<true>. 

4.2.3.21  POST 

Postprocessing  flag  (default=<f  alse>).  This  flag  should  be  turned  on  if  you  want  selected 
response- history  parameters  to  be  added  to  the  CC.DBR  database.  Note  that  it  is  not 
necessary  to  use  this  option  in  order  to  archive  the  basic  load-displacement  curve  and 
solution  parameters.  It  is  only  needed  if  you  wish  to  archive  special  displacement  and/or 
internal  force  component  response  histories  post-facto. 

4.2.3.22  PREP 

Preprocessing  flag  (default=<true>).  This  flag  must  be  turned  on  the  first  time  procedure 
COMPRESSED.CYL  is  run,  as  it  causes  the  model  to  be  generated.  If  subsequent  runs  are 
used  to  perform  other  stages  of  the  analysis  ( e.g .,  nonlinear  re-starts),  then  PREP  must  be 
set  to  <f alse>  for  those  subsequent  runs. 

4.2.8.23  PRE-STRESS 

Constant  pre-stress  flag  (default:  <f  alse>).  By  setting  this  flag  to  <true>,  the  procedure 
bypasses  computing  the  linear  solution  to  obtain  the  prebuckling  stresses,  and  instead 
prescribes  the  prebuckling  axial  stress  resultants  to  be  uniform  throughout  the  shell.  This 
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amounts  to  procedure  COMPRESSED.CYL  invoking  solution  procedure  L_STABIL_1  instead  of 
procedure  L.STABIL.2  to  perform  the  buckling  eigenvalue  analysis.  While  the  prescribed 
pre-stress  used  with  this  option  is  equal  to  the  classical  buckling  value,  the  results  can 
be  somewhat  different  than  those  obtained  using  L_STABIL_2.  The  reason  for  this  is  that 
due  to  the  simply  supported  boundary  condition  on  the  loaded  edge,  the  prebuckling  stress 
distribution  (*.e.,  both  the  exact  one  and  that  obtained  using  a linear  prebuckling  analysis) 
is  not  really  uniform.  Note  that  even  when  the  uniform  PRE_STRESS  option  is  selected,  it 
is  used  only  to  obtain  the  buckling  eigenvalues  and  mode  shapes  — which  are  in  turn  used 
as  initial  imperfections  for  the  nonlinear  analysis.  The  uniform  pre-stress  values  are  then 
ignored  during  the  nonlinear  analysis,  which  applies  either  forces  or  displacements  to  the 
simply-supported  edge  (depending  on  argument  SPEC.DIS). 

4.2.3.24  SPEC-PIS 

Specified  displacement  flag  (default:  <false>).  By  setting  this  flag  to  <true>,  uniform 
axial  end-shortening  is  imposed  instead  of  the  uniform  axial  loading.  This  can  make  a 
significant  difference  in  both  the  buckling  and  postbuckling  response,  and  is  not  recom- 
mended for  novice  users  of  this  procedure.  This  is  because  thin  axially-compressed  shells 
are  not  only  imperfection  sensitive,  but  also  boundary  condition  sensitive,  and  uniform  ax- 
ial loading  does  not  correspond  (exactly)  to  uniform  axial  edge  displacements.  Note  that 
the  reference  specified  displacement  (».e.,  end-shortening)  magnitude  equals  .01  inches, 
and  corresponds  to  an  axial  load  of  about  .467  times  the  classical  buckling  load. 

4.2.3.25  STABILITY 

Stability  (buckling)  analysis  flag  (default:  <true>).  This  flag  should  be  turned  on  if  you 
want  the  buckling  eigenvalue  analysis  to  be  performed  in  the  current  run.  Preprocessing 
is  a pre-requisite  for  this  option.  If  you  are  just  performing  a nonlinear  analysis  re-start 
run,  then  you  should  turn  this  flag  off. 


4.2.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  COMPRESS.CYL  may  be  used  by  preceding  the  procedure  name  by  the  ♦call 
directive.  Procedure  arguments  may  be  changed  from  their  default  values  by  including 
any  or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or 
blank  is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦call  COMPRESS-CYL  ( 


ELT-PROC  = ESI 
NNODES-A  = 7 

SPEC.DIS  « 
DRILLING.DOF  = 
AUTO-DOF.SUP  = 
PREP 

STABILITY  « 
IMPERFECTION  - 
NONLINEAR  = 
POST 


<false> 

<false> 

<true> 

<true> 

<true> 

<true>  ; 

<true> 
<true>  ; 


ELT.NAME 

NNODES.C 


EX97 

7 


I 
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BEG  .STEP  =*  1 

NSTEPS  * 10 
BEG.LOAD  - . 1 

KAX.LOAD  * 3.0 

DBc  s CC . DBc 


DBr  = CC.DBr  ) 


(El)  Not  suppressing  the  drilling  rotational  freedoms  can  cause  strange  behavior  for  some 
elements  during  nonlinear  analysis.  On  the  other  hand,  suppressing  these  free- 
doms explicitly  using  the  DRILLING_D0F  argument  may  cause  some  over-stiffening 
for  coarse  meshes  with  some  elements.  It  is  probably  best  to  suppress  the  drilling 
freedoms  explicitly  unless  the  element  actually  has  intrinsic  drilling  stiffness. 

Table  4.2-1  Typical  CPU  Times  for  Various  Computer  Systems 


Computer  System 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

(E2)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  i.e., 

♦call  COMPRESSED _CYL 


This  will  perform  linear  buckling  eigenvalue  analysis  and  30  steps  of  nonlinear  anal- 
ysis with  a 7x7  grid  of  ES1/EX97  shell  elements.  The  time  required  for  this  analysis 
is  machine-dependent.  Using  the  default  values  for  the  procedure  arguments,  the 
amount  of  CPU  time  required  for  this  analysis  on  various  computer  systems  is  shown 
in  Table  4.2-1. 


4.2.5  LIMITATIONS 

(LI)  Only  4- node  and  9-node  shell  elements  can  be  employed  in  the  model.  (Note:  This 
can  be  easily  modified.) 
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(L2)  Not  all  of  the  solution  parameters  provided  by  procedure  NL_STATIC_1  are  acces- 
sible using  this  procedure.  The  main  reason  for  this  is  the  CLIP  limitation  of  25 
arguments  per  procedure.  Procedure  COMPRESSED_CYL  is  exactly  at  this  limit  now. 

4.2.0  ERROR  MESSAGES  AND  WARNINGS 

If  you  have  to  repeat  the  preprocessing  phase,  you  need  to  either  delete  the  computational 
(.DBC)  database,  or  delete  the  ES. SUMMARY  dataset.  Otherwise,  the  element  processors  will 
be  run  more  than  once  for  each  element  function  ( e.g .,  FORM  STIFFNESS),  and  the  effect 
will  be  cumulative.  This  is  due  to  a lack  of  explicit  initialization  in  the  registration  of 
element  processors  using  procedure  ES. 


4.2.7  PROCEDURE  FLOWCHART 


COMPRESSED-CYL 

GEN-SHELL 

CC-BC 

L.STABIL-2 

IMPERFECTION 

NL-STATIC-1 

HISTORY 


(main  procedure) 

(generate  shell  model) 

(generate  boundary  conditions/loads) 
(perform  stability  analysis) 

(superpose  buckling  modes  as  imperfections) 
(perform  nonlinear  static  analysis) 

(archive  selected  displacement/force  histories) 


4.2.8  PROCEDURE  LISTING 


4.2.9  REFERENCES 

4.2- 1  Timoshenko,  S.  P.;  and  Gere,  J.  M.:  Theory  of  Elastic  Stability , McGraw-Hill,  New 

York,  1961. 

4.2- 2  Stanley,  G.  M.:  “Continuum-Based  Shell  Elements,”  PhD  Dissertation,  Stanford 

University,  1985. 

4.2- 3  Donnel,  L.  H.:  Beams , Plates,  and  Shells , McGraw-Hill,  New  York,  1976. 

4.2- 4  CSM  Testbed  Applications  Manual. 
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4.3  Procedure  uuOK_MEM 
4.3.1  GENERAL  DESCRIPTION 

This  section  describes  a procedure  that  solves  for  the  deflection  of  a trapezoidal  panel 
subject  to  inplane  shear  and  bending,  also  known  as  Cook’s  membrane  (see  ref.  4.3- 
1).  The  geometry  of  the  membrane  resembles  a wing  plan  form  (see  figure  4.3-1)  with 
an  applied  end  shear  load.  The  membrane  has  constant  thickness,  and  the  material  is 
isotropic. 


48 H 


Figure  4.3-1  Cook’s  Membrane 
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4.3. 1.1  Model  Description 

4. 3. 1.2  Analysis  Description 

4. 3. 1.3  Available  Solutions 


4.3.2  PROCEDURE  USAGE 

Procedure  COOK-MEM  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  all  have  default  values  thus  making  them  optional.  The  formed 
syntax  is  as  follows: 

♦call  C00K_MEM  ( argl  * vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  COOK-MEM  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES.PR0C 

ESI 

Element  Processor 

ES-NAME 

EX97 

Element  name 

ES-PARS 

0. 

Element  research  parameters 

HDATA 

4 

Number  of  grids  to  analyze 

NNODES 

3, 5, 7, 9 

Number  of  nodes  on  each  edge 

AUT0_D0F_SUP 

<true> 

Automatic  d.o.f.  suppression 

DRILLING-DOF 

<false> 

Drilling  (normal  rotational)  freedoms 

CMJ5B 

CM.DB 

Cook  membrane  database  name 

4.3.3  ARGUMENT  DESCRIPTIONS 
4.3.3. 1 APTO-DOF-SPP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffnesses  (see 
argument  DRILLING-DOF). 
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4.3.S.2  CM-DB 

Name  of  Cook  membrane  database  file  (default=CM.DB).  This  file  will  contain  all  model 
data  and  analysis  results. 

4.3.3.S  DRILLING_DOF 

Drilling  degree  of  freedom  flag  (default:  <false>).  Drilling  freedoms  are  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  off  forces  all  drilling  freedoms 
in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be  active  — 
unless  they  are  automatically  suppressed  using  use  of  the  AUTO_DOF_SUP  argument.  Note 
that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with  their 
own  surface-normal  directions  (at  nodes),  when  shell  elements  axe  assembled  as  facets  ap- 
proximating an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  (e.g.,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLIHG.DOF  argument  should  be  set  to  <true>  regardless  of  how  AUT0_D0F_SUP  is 
set. 

4.3.5.4  ESJIAME 

Element  name  (default:  EX97).  This  is  the  name  of  the  specific  shell-element  type  you 
wish  to  select,  within  the  element  processor  defined  hy  argument  ES_PR0C.  The  default 
shell-element  type,  EX97,  is  a 9-node  quadrilateral  element  implemented  in  Processor  ESI, 
and  described  in  The  Computational  Structural  Mechanics  Testbed  User’s  Manual  (see 
ref.  4.3-2). 

4.3.3. 5 ES JARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

4.3.3.0  ESJROC 

Element  processor  (default:  ESI)  This  is  the  name  of  the  structural  element  (ES)  Processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  Processor  ESI,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual. 

4.3. 3. 7 WDATA 

Specifies  the  number  of  model/mesh  refinements  to  analyze  (default:  4).  The  degree  of 
mesh  refinement  for  each  analysis  is  defined  by  the  RHODES  parameter. 
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4.3. 3.8  NHODES 

A list  of  integers  which  represent  the  number  of  nodes  on  each  edge  of  the  surface  for  each 
analysis  to  be  performed  (default:  3 , 5 , 9 , 17).  The  length  of  the  list  is  defined  by  the  NDATA 
parameter.  The  numbers  in  the  list  must  be  consistent  with  the  element  type  selected. 
For  example,  RHODES  can  be  any  list  of  numbers  greater  than  1 for  4-node  quadrilateral 
elements,  whereas  it  must  be  a list  of  odd  numbers  greater  than  1 for  9-node  quadrilateral 
elements. 

4.3.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  Procedure  COOK-MEM  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive.  Procedure  arguments  may  be  changed  from  their  default  values  by  including 
any  or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or 
blank  is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the 
default  values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name 
is  required. 


♦call  COOK.MEM  ( ES.PROC  = ESI  ; — 

ES-NAME  = EX97 


ES.PARS  =0.  ; — 

NDATA  =4  ; — 

NNODES  * 3,5,9,17  ; - 

AUTO  _D0F_  SUP  = <true>  ; 
DRILLING_DOF  - <false>  ; 
CM_DB  = CM.DB  — 


(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  i.e., 

♦call  COOK-MEM 

This  call  will  perform  a linear  static  analysis  for  each  of  the  element  configurations 
specified  by  the  default  NNODES  parameter.  Also,  a fine  grid  analysis  is  performed 
with  approximately  four  times  the  nodes  of  the  last  analysis  specified  by  parameter 
NNODES.  The  results  of  the  fine  grid  analysis  are  used  to  normalize  the  results  of 
each  requested  analysis.  All  analysis  results  are  presented  in  table  format  by  the 
procedure: 


Cook's  Membrane  Analysis  Data 
Element  Name  * EX97 

S8BSESSSSSSSS=SS8S3XS3SSSSSS=SSSSSSSSSSSS 

NODES  DISPLACEMENT  NORMALIZED 

3 0 . 22677967E+02  0.9440006730146 

5 0 . 23594924E+02  0.982170233148691 

9 0 . 23889961E+02  0.994451542428496 

17  0 . 23989798E+02  0.998607390930779 
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A plot  showing  the  deformed  shape  of  the  membrane  is  provided  in  figure  4.3-2. 
The  analysis  model  used  9-node  quadrilateral  elements  with  17  nodes  per  edge. 


Figure  4.3-2  Cooks  Membrane  Deflection  Plot 
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The  time  required  for  this  analysis  is  machine-dependent.  Using  the  default  values  for 
the  procedure  arguments,  the  amount  of  CPU  time  required  for  this  analysis  on  various 
computer  systems  is  shown  in  Table  4.3-1. 


Table  4.3-1  CPU  TIMES  Table 


Computer  System 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

4.3.5  LIMITATIONS 


None. 


4.3.0  ERROR  MESSAGES  AND  WARNINGS 
None. 


4.3.7  PROCEDURE  FLOWCHART 


COOK-MEM 

GENJPLATE 
CM-BC 
L -STATIC 


(main  procedure) 

(generate  model) 

(generate  boundary  conditions/loads) 
(perform  linear  static  analysis) 
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4.3.8  PROCEDURE  LISTING 
4.3.8. 1 UNIX  Script 


cookjnem.  com 


cd  ISCR/tUSEE 

cp  tCSK.PRC/proclib.gal  pro cl ib. gal 
chaod  u+w  prodib.gal 
rm  CHEX07 . * 

time  testbed  «\endinput 
•set  echo, off 
•■at  plib-28 

•opan  28  prodib.gal  /old 
•add  * tCSM.APP/cook.aem/cook.aem . dp ’ 
•call  COOK.KEM  ( ES.PROC  = ESI  ; — 
ES.NAME  = EX97  ; — 
ES.PARS  =0.  ; — 

NDATA  =4  ; — 

NNODES  « 3,6,9,17  ; 

AUT0_D0F_SUP=<true> 
DRILLING_DOF=<false> 
CM.DB  * CMEX97 . L01 

) 


. Element  Procassor 
. Elaaent  naaa 
. Elaaent  parameters 
. Number  of  grids  to  analyze 
— . Number  of  nodes  per  side 
i 
! 

— . Database 


•stop 

•dosa  28  /delate 
[xqt  exit 
\ end input 


4.3.8. 2 CLAMP  Procedure 


cookjnem.clp 

•procedure  C0DK..MEM  ( es.proc  = esl  ; — . elaaent  processor 

es.name  = ex97  ; — . element  name 

es.pars  = 0.  ; — . element  parameters 

ndata  *4  ; — . Number  of  grids  to  analyze 

nnodes  =3,6,9,17  ; — . Number  of  nodes  per  side 

auto_dof_sup=<true>  ; — 

drilling_dof=<false>  ; — 

ca_db  s cm.db  — . database 

) 


, »sssss8sss*ssssssrs=ss::ssss=£ss::=ss:==:s::s=sssss:ss3ss:ssss:ss 

. procedure  for  analysis  of  in-plane  bending  of  trapezoidal  membrane 

, as«*a=s=3x*3=»====== =============================================== 


•daf/i  ndata  * [ndata] 

*def/i  nnodes [l:<ndata>]  = [nnodes] 

•daf/i  nnodes  [«ndata>+l>]  * < (<nnodes[<ndata>]>*2)  ♦ 1> 

•def/i  lib  * 1 

•do  tj=l,«ndata>+l> 

•if  < <lj>  /It  «ndata>*l>  > /then 
•open  <lib>,  [cm.db]  /new 
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•open  <lib>,  zzzscr.lib  /new 
•endil 

•del/i  nnt  * < <nnodes [<$j>] >*<nnodes[<$j>]>  > 


*d el/e  • * 1.0 
*d el/e  nu  * .33 
•del/e  h * 1.0 
♦ call  GEN.PLATE  ( es_proc 
«i.nu« 
••.pars 
nodos.l 
nodes_2 
xyzl 
xyz2 
zyz3 
xyz4 

• * <e>  ; nu 
auto.dol.sup 
drilling.dol 
be .procedure 

perlora  static  analysis 

•dal /a  solver. name  ==  BAND 
•call  L.STATIC 


= [es.proc]  ; — 
a [es.name]  ; — 
a [es.pars]  ; — 

* <nnodes[<|j>]>  ; — 
a <nnodas [<$j>]>  ; — 

= 48., 44.,  0.  ; -- 
a 48., 60.,  0.  ; — 

= 0. ,44. , 0.  ; — 

a 0. , 0. , 0.  ; — 

a <nu>  ; thickness  = <h>  ; 
a [auto.dol.sup] ; — 
a [drill ing.dol] ; — 
a TP.BC  ) 


store  the  results  lor  this  run 
[xqt  AUS 

MACRO  <lib>  STAT  DISP  1 1 semilocal  2 <6*<nnodes[<$j>]»  6 ’disps 
STOP 

•del/e  avgdisp  a o. 

•do  #j j*l,<nnodes[<tj>]> 

•del/e  avgdisp  * <<avgdisp>  ♦ <disps [<$j j>]>  > 

•enddo 

•del/c  avgd[<tj>]  « < <avgdisp>  / <nnodes [<$j>]>  > 

•show  zacros 

•enddo 


. delete  the  nornalizing  analysis 

•close  <lib>  /delete 
done 


•remark 

•remark 

•remark 

•remark 

•remark 

•remark 

•remark 


:s::stsssssss:s:!:sss=sss=ss==is: 

Cook’s  Membrane  Analysis  Data 
Element  Name  = [es.name] 
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*r«*ATk  ISSSIIISSSlSKSSStSSStSKSSS&SflSSSCSS&SS 

•remark  NODES  DISPLACEMENT  NORMALIZED 

•remark 

•do  $j»l,<ndata> 

•remark  <nnodes[<f j>]>  <avgd[<ej>]>  <<avgd[<$j>]>/<avgd[<<ndata>+l>]» 
•anddo 

•raiark  ItSIMISSSSCCSSSSSSXSSSSSSSSSSSSSSSSSSSSS 

•remark 

•remark 

•remark 

•remark 

[xqt  EXIT 

•and 

•procadura  TP.BC  ( nodes. 1 ; nodes. 2 ; es.nodes  ; drilling.dol *<1 alse>  ) 

• boundary  condition  procadura  lor  trapazoidal  plate  analysis 
. ss3isszs88i«ssisssss:ss£ss3ssssss:::=::r=s:::::ss::ss:=£sss=s 

•dal/i  nnl  * [nodes. 1] 

•del/i  nn2  * [nodes. 2] 

•dal/i  nan  * [es.nodes] 

*del/i  node.A  =*  1 

•dal/i  node.B  = <nnl> 

•dal/i  node.D  * < <nnl>*<nn2>  > 

•dal/i  node.C  * < <node.D>  - <nnl>  ♦ 1 > 

. boundary  conditions 

edge  c-d  gats  clamped 

constraint  = 1 

zero  123456  . clamp  edge  c-d 

<node.C>  <node.D>  . of  constant  theta 

•il  < [drilling. do 1]  /eq  <lalse>  > /then 
zero  4 . remove  drilling  dol 

<node.A>  <node.D>  everywhere 

•andil 

. loading  conditions 

edge  a-b  receives  unilorm  shear  in  positive  global  y direction 

[xqt  aus 
alpha 

case  title 

1 ’in-plane  shear  (i.e.,  bending)  ol  trapezoidal  membrane* 
sysvec  : appl  lore  1 1 

•d el/e  p « 1.0  . total  axial  force  on  model  boundary 

•il  < <nen>  /eq  4 > /then 

•del/i  nelts  » < <nnl>  - 1 > 

•del /el2.4  Pelt  = < <p>  / <nelts>  > 
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♦def/el2.4  Pand  » < <Pelt>/2.  > 

♦do  $jn  * <node_A>,  <node_B> 

♦if  < «#jn>  /eq  <node_A»  /or  «$jn>  /eq  <node_B>>  > /then 
i*2  : j«<$jn>  : <Pend> 

♦olio 

i*2  ; : <Pelt> 

♦•ndif 

♦enddo 

♦elseif  < <nen>  /eq  9 > /than 

♦del/i  nelts  * < (<nnl>  - l)/2  > 

♦def /el2.4  Pelt  « < <p>  / <nelt»>  > 

♦def/el2.4  Pelt_l  « < 1. ♦<Polt>/6.  > 

♦def /el2.4  Pelt_2  « < 2.*<Pelt>/6.  > 

♦def /el2.4  Pelt_4  « < 4.*<Pelt>/6.  > 
aidside  nodes 

♦do  $j4  ■ «node_A>  ♦ 1>,  «node_B>-l>,  2 
i*2  i j«  <$j4>  : <Pelt_4> 

♦enddo 

sharod  nod#* 

♦if  < <nelts>  /gt  1 > /then 

♦do  $j2  « «node_A>+2>,  «node_B>-2>,  2 
i=2  : j=  <#j2>  : <Pelt_2> 

♦enddo 

♦•ndif 

. corner  node* 

i*2  : j*  <node.A>  : <Pelt_l> 

1*2  : j*  <node_B>  : <Pelt_l> 

♦endif 

♦end 


4.3.9  REFERENCES 
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4.4  Procedure  ELASrICA 

4.4.1  GENERAL  DESCRIPTION 

4.4. 1.1  Problem  Description 

This  section  describes  a procedure  that  solves  the  classical  large  deflection,  large  rotation 
problem  of  a cantilevered  beam  with  an  applied  end  moment  as  shown  in  Figure  4.4-1.  The 
nonlinear  response  of  the  cantilevered  beam  bent  into  a circle  by  an  applied  end  moment 
is  determined. 


Thickness  = 
M = 

E = 


Figure  4.4-1  Elastica  Problem. 
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Procedure  ELASTICA  models  the  entire  strip  using  2-D  quadrilateral  elements.  The  mesh 
is  generated  using  procedure  GEN_PLATE.  Two  sets  of  boundary  conditions  are  available. 
The  set  in  procedure  ELASTICA_BC  imposes  a clamped  condition  at  one  end  of  the  strip 
and  a moment  at  the  other  end.  Procedure  EL_ECCJBC  also  imposes  a clamped  condition 
at  one  end  and  an  eccentric  axial  load  at  the  other. 


4.4.1.3  Analysis  Description 

Procedure  ELASTICA  performs  either  a linear  static  analysis  using  procedure  L-STATIC  or 
a nonlinear  static  analysis  using  procedure  NL_STATIC_1. 
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4.4.2  PROCEDURE  USAGE 

Procedure  ELASTICA  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  ELASTICA  ( argl  = vail  ; arg2  * val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  ELASTICA  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  the  procedure  ELASTICA,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 


Argument 

Default  Value 

Meaning 

ES_PR0C 

ESI 

Select  element  processor 

ESJIAME 

EI97 

Select  element  within  ES_PR0C 

ES.PARS 

0. 

Set  element-research  parameters 

NNODES-X 

11 

Number  of  nodes  in  x-direction 

NNODES.Y 

3 

Number  of  nodes  in  y-direction 

PREP 

<true> 

Preprocessing  flag 

POST 

<true> 

Postprocessing  flag 

LINEAR 

<true> 

Perform  Linear  Analysis 

NONLINEAR 

<true> 

Perform  Nonlinear  Analysis 

AUT0_D0F_SUP 

<f alse> 

Automatic  degree  of  freedom  suppression 

DRILLINGJ50F 

<true> 

BEG_STEP 

1 

Beginning  Load  Step  Number 

BEG.L0AD 

.01 

Beginning  Load  Factor 

NSTEPS 

10 

Number  of  Load  Steps 

DBC 

ELASTICA. DBC 

Computational  Database 

DBR 

ELASTICA. DBR 

Results  Database 

4.4.3  ARGUMENT  DESCRIPTIONS 
4.4.3. 1 APTO-DOF-SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
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associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffnesses  (see 
argument  DRILLINGJ)OF). 

4.4.3. 2 BC-PROCEDURE 

Boundary  condition  procedure  name  (default:  ELASTICA-BC).  Two  sets  of  boundary  con- 
ditions are  available.  The  set  in  procedure  ELASTICA.BC  imposes  a clamped  condition  at 
one  end  of  the  strip  and  a moment  at  the  other  end.  Procedure  ELJECC-BC  also  imposes  a 
clamped  condition  at  one  end  and  an  eccentric  axial  load  at  the  other. 

4.4.5.3  BEG-LOAD 

Starting  load  factor  in  nonlinear  analysis  (default=.  l).  This  factor  is  multiplied  times  the 
reference  load  vector  to  obtain  the  starting  load  vector.  For  example,  if  specified  forces  are 
applied  (which  is  the  default  option),  then  BEG_LOAD  = .1  means  that  the  first  load  step  to 
be  computed  in  the  nonlinear  analysis  will  be  at  one-tenth  of  the  classical  buckling  load 
level.  Note  that  this  argument  is  irrelevant  for  re-start  runs.  For  more  details,  refer  to  the 
same  argument  name  under  solution  procedure  NL_STATIC_1. 

4.4.5.4  BEG-STEP 

Number  of  starting  load  step  in  nonlinear  analysis  (default=l).  This  argument  is  the 
number  of  the  first  step  to  be  computed  during  an  analysis  interval.  When  starting  a 
nonlinear  analysis,  the  first  step  is  obviously  1.  When  re-starting  (»'.e.,  continuing  in  a 
subsequent  run)  a nonlinear  analysis,  BEG_STEP  should  be  set  to  the  number  of  the  next 
step  to  be  computed  — not  to  the  number  of  the  last  step  computed.  The  solution 
procedure  (NL-STATIC-l)  will  automatically  use  any  previous  step(s)  required  to  continue 
the  analysis  — providing  the  necessary  steps  are  available  in  the  database.  Currently,  the 
number  of  consecutive  preceding  steps  required  for  a restart  is  three.  For  more  details, 
refer  to  the  same  argument  name  under  solution  procedure  NL_STATIC_1. 

4. 4.3.5  DBC 

Name  of  computational  database  file  (default=ELASTICA.DBC).  This  file  will  contain  all 
model  definition  data,  element  computational  data,  one  copy  of  the  assembled  and  factored 
stiffness  matrices,  the  buckling  eigensolution,  and  displacement  and  internal  force  vectors 
for  every  load  step  computed  during  the  analysis. 

4.4.5.6  DBR 

Name  of  results  database  file  (default=ELASTICA.DBR).  This  file  will  contain  one  dataset 
called  RESPONSE. HISTORY  generated  during  nonlinear  analysis.  The  dataset  will  contain 
record  groups  — indexed  by  load  step  number  — for  a number  of  solution  parameters, 
including  the  load  factor  and  maximum  axial  displacement  components.  This  database  is 
valuable  for  obtaining  load-displacement  plots,  and  for  evaluating  the  performance  of  the 
nonlinear  solution  strategy  employed. 
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4.4.3.T  DRILLIHG-DOF 

Drilling  degree  of  freedom  flag  (default:  <false>).  Drilling  freedoms  jure  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  off  forces  all  drilling  freedoms 
in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be  active  — 
unless  they  are  automatically  suppressed  using  use  of  the  ATJT0_D0F_SUP  argument.  Note 
that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with  their 
own  surface-normal  directions  (at  nodes),  when  shell  elements  are  assembled  as  facets  ap- 
proximating an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  ( e.g .,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLING_DOF  argument  should  be  set  to  <true>  regardless  of  how  AUT0_D0F_SUP  is 
set. 

4.4.3. 8 ES_NAME 

Element  name  (default:  EX97).  This  argument  specifies  the  name  of  the  specific  shell- 
element  type  you  wish  to  select,  within  the  element  processor  defined  by  argument  ES-PROC. 
The  default  shell-element  type,  EX97,  is  a 9-noded  quadrilateral  element  implemented  in 
processor  ESI,  and  described  in  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual  (see  ref.  4.4-1). 

4.4.5.9  ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  array  allows  an  optional  list  of 
element-dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is 
still  undergoing  research  and  refinement. 

4.4.3.10  ESJROC 

Element  processor  (default:  ESI)  This  argument  specifies  the  name  of  the  structural  ele- 
ment (ES)  processor  that  contains  the  shell  element  type  you  wish  to  employ  in  the  model. 
The  default  shell-element,  processor  ESI,  is  described  in  The  Computational  Structural 
Mechanics  Testbed  User’s  Manual  (see  ref.  4.4-1). 

4.4.3.11  NNODES-X 

Number  of  nodes  along  beam  length  (default:  11).  This  argument  is  the  number  of  nodes 
along  the  x-direction  of  the  beam  shell  model.  Note  that  this  number  should  be  consistent 
with  the  number  of  nodes  per  element.  For  example,  NNODES-X  can  be  any  number  greater 
than  1 for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than 
1 for  9-node  quadrilateral  elements. 
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4.4.3.12  HNODES.Y 

Number  of  nodes  along  beam  depth  (default:  3).  This  argument  is  the  number  of  nodes 
along  the  y-direction  of  the  beam  shell  model.  Note  that  this  number  should  be  consistent 
with  the  number  of  nodes  per  element.  For  example,  HNODES.Y  can  be  any  number  greater 
than  1 for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than 
1 for  9-node  quadrilateral  elements. 

4.4.3.13  NONLINEAR 

Nonlinear  (postbuckling)  analysis  flag  (default=<true>).  This  flag  should  be  turned  on  to 
perform  nonlinear  analysis  in  the  current  run. 

4.4.3.14  NSTEPS 

Maximum  number  of  load  steps  to  be  computed  in  the  current  nonlinear  analysis  run 
(default=30).  For  more  details,  refer  to  the  same  argument  name  under  solution  procedure 
NL.STATIC.1. 

4.4.3.15  POST 

Postprocessing  flag  (default=<f  alse>).  This  flag  should  be  turned  on  if  you  want  selected 
response- history  parameters  to  be  added  to  the  ELASTICA. DBR  database.  Note  that  it  is 
not  necessary  to  use  this  option  in  order  to  archive  the  basic  load-displacement  curve  and 
solution  parameters.  It  is  only  needed  to  archive  special  displacement  and/or  internal  force 
component  response  histories  post-facto. 

4.4.3.16  PREP 

Preprocessing  flag  (default=<true>).  This  flag  must  be  turned  on  the  first  time  procedure 
ELASTICA  is  run,  as  it  causes  the  model  to  be  generated.  If  subsequent  runs  are  used  to 
perform  other  stages  of  the  analysis  ( e.g .,  nonlinear  restarts),  then  PREP  must  be  set  to 
<false>  for  those  subsequent  runs. 


4.4.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  ELASTICA  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all  of 
the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦call  ELASTICA  ( ES.PROC 
ES.NAME 
ES.PARS 
NNODES.X 
NNODES.Y 
PREP 
LINEAR 


* ESI  ; — 
= EI97  ; — 


= 0.0 


« 11  ; — 

= 3 ; — 

=<true> ; — 
=<true> : — 
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POST  «<false>;  — 

NONLINEAR  «<false>;  — 

NSTEPS  * 10  ; — 

DBc  ■ ELASTICA. DBc  ; — . Computational  database 

DBr  * ELASTICA. DBr  — . Results  database) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  t.e., 

♦call  ELASTICA 

This  call  will  perform  linear  buckling  eigenvalue  analysis  and  10  steps  of  nonlin- 
ear analysis  with  a 11x3  grid  of  ES1/EX97  shell  elements.  The  time  required  for 
this  analysis  is  machine- dependent.  Using  the  default  values  for  the  procedure  ar- 
guments, the  amount  of  CPU  time  required  for  this  analysis  on  various  computer 
systems  is  shown  in  Table  4.4-1. 


Table  4.4-1  CPU  TIMES  Table 


Computer  System 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

(E2)  Not  suppressing  the  drilling  rotational  freedoms  can  cause  strange  behavior  for  some 
elements  during  nonlinear  analysis.  On  the  other  hand,  suppressing  these  free- 
doms explicitly  using  the  DRILLING.D0F  argument  may  cause  some  over-stiffening 
for  coarse  meshes  with  some  elements.  It  is  probably  best  to  suppress  the  drilling 
freedoms  explicitly  unless  the  element  actually  has  intrinsic  drilling  stiffness. 

4.4.5  LIMITATIONS 

(LI)  Only  4- node  and  9- node  shell  elements  can  be  employed  in  the  model.  (Note:  This 
can  be  easily  modified.) 
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4.4.6  ERROR  MESSAGES  AND  WARNINGS 

If  you  have  to  repeat  the  preprocessing  phase,  you  need  to  either  delete  the  computational 
( .DBC)  database,  or  delete  the  ES . SUMMARY  dataset.  Otherwise,  the  element  processors  will 
be  run  more  than  once  for  each  element  function  FORM  STIFFNESS),  and  the  effect 
will  be  cumulative.  This  is  due  to  a lack  of  explicit  initialization  in  the  registration  of 
element  processors  using  procedure  ES. 


4.4.7  PROCEDURE  FLOWCHART 


ELASTICA 

GEN-PLATE 

ELASTICA-BC 
EL_ECC.BC 
L -STATIC 
IMPERFECTION 
NLJSTATIC-1 
HISTORY 


(main  procedure) 

(generate  model) 

(generate  boundary  conditions  and  end  moment) 
(generate  boundary  conditions  and  eccentric  axial  load) 
(perform  linear  static  analysis) 

(superpose  buckling  modes  as  imperfections) 

(perform  nonlinear  static  analysis) 

(archive  selected  displacement /force  histories) 


4.4.8  PROCEDURE  LISTING 
4.4.8. 1 UNIX  Script 


elastica.com 


cd  ISCR/IOSER 


cp  $CSM_PRC/prodib.gal  proclib.gal 
chaod  u+w  proclib.gal 
ra  ELASTICA.* 
tiaa  tastbad  « \ondtnput 
•sat  echo, oil 


•sat  plib>28 

•opan/old  28  proclib.gal 

•add  ’tCSM.APP/elastica/elastica. dp* 

•daf/a  solvar.nano  **  INV 


•call  ELASTICA 


( ES.PROC  * ESI 

ES.NAHE  = EZ97 

ES.PARS  >0.0 

NNODES.X  >11  ; — 

NNODES.T  >3  : — 

LINEARs«alsa>;  NONLINEAR  Xtrue>;  — 

NSTEPS  > 36;drilling.dofXfalse>  ; — 

DBc  ■ ELASTICA. DBc  ; — . Computational  database 

DBr  > ELASTICA. DBr  — . Results  database 


) 


•stop 
\and input 
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4.4.8. 2 CLAMP  Procedure 


elastica. clp 

•procedure  ELASTICA  ( ES.PROC  = ESI  ; — . 


ES.NAME 

= EX97  ; — . 

ES.PARS 

* 0.  ; — 

NNODES.X 

* U • — 

. 

NN0DES.T 

* 3 ; — . 

P&EP 

=<true> ; — . 

POST 

=<true> ; — . 

LINEAR 

=<true> ; — . 

NONLINEAR 

*<true>;  — . 

AUTO.DOF.SUP 

=<false> ; — 

. 

DRILLING.DOF 

*<true>;  — . 

BEG.STEP 

x 1 ; - . 

BEG.LOAD 

H 

0 

M- 

1 
1 

NSTEPS 

1 

o 

▼4 

II 

Number  of  load  steps 

DBc  = ELASTICA. DBc  ; — . 

Computational  database 

DBr  * ELASTICA. DBr  — . 

Results  database 

CSM  Test bad  Procadura  lor  Analysis  of  ELASTICA  Problem 


•open  1 , [DBc] 

. Generate  Plata  Modal  of  Cantilavar  Baaa 
•if  < [PREP]  > /then 

•call  GEN.PLATE  ( ES.PROC* [ES.PROC]  ; ES.NAME* [ES.NAME] 

NODES. 1 = [NNODES.X]  ; N0DES.2  = [NN0DES_T]  ; — 

E = 120.  ; NO  • 0.  ; THICKNESS  * 1. 

xyzl*0. ,0. ,0. j xyz2*10. ,0. ,0. ; — 
xyz3*10. ,1. ,0. ; xyz4*0. ,1. ,0. ; — 

ADT0.D0F.SUP  = [auto .do f_ sup]  ; — 

DRILLIN6.D0F  * [drilling.dof ] ; — 

BC.PR0CEDURE  = ELASTICA.BC  ) 

•toe 

•andif 

. Perform  Solution 

•if  < [LINEAR]  > /than 
•call  L.STATIC 
•if  < [POST]  > /than 
•open  2 , [DBr] 

•daf/a  ds.r  • [ES.PR0C] . [ES.NAME] . [NNODES.X] . [NN0DES.T] 

•call  HISTORT  ( input _ldi  »1  ; input _ds  *STAT.DISP.1.1;  — 
output _ldi=2  ; output _ds=<ds_r>  ; — 

output _rn  *LATERAL_DISP ; nodes=l;  componant=3  ) 
•call  HISTORT  ( input _ldi  *1  ; input _ds  »STAT.DISP.1.1;  — 
output_ldi=2  ; output _ds=<ds_r>  ; — 
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output .rn  * END  .ROTATION;  nodes=l;  component =5  ) 
♦cull  HISTORY  ( input. ldi  =1  ; input.d*  =STAT.DISP.l. 1;  — 
output.ldi*2  ; output.ds=<ds_r>  ; — 

output .m  &AXIAL.DISP;  nodes*l;  component =1  ) 

♦remark 

♦remark 

♦remark . . 

♦remark 

♦remark  ELASTICA  Linear  Results 

♦remark 

♦remark  Exact: 

♦remark  LATERAL.DISP  (compare  with  V at  node  1)  * 31.41 

♦remark  END  .ROTATION  (compare  with  RV  at  node  l)  * 6.28 

♦remark  AXIAL.DISP  (compare  with  U at  node  1)  * 0.0 

♦remark 

•remark  Computed: 

♦print  rec  2 , <ds.r>  LATERAL.DISP  /l=drx 
♦print  rec  2,  <ds.r>  END.R0TATI0N  /l=drx 
♦print  rec  2,  <ds.r>  AXIAL.DISP  /l=drx 
♦remark 

♦remark 

♦remark 

♦endif 

♦endil 

♦if  < [NONLINEAR]  > /then 
♦def  ns. overwrite  * <true> 

♦call  NL.STATIC.l  ( beg.step  * [BE6.STEP]  ; -- 

max.steps  * [NSTEPS]  ; — 

beg.load  * [BEG.LOAD]  ; — 

max.load  *1.00  ; — 

NL.GEON  * 2 ; — 

COROTATION  * 1 ; — 

Nominal. DB  = [DBr]  ; — 

Nonin al.DS  * [ES.PROC]  . [ES.NAME]  . [NNODES.X]  . [NNODES.T]  ; — 
N.SELECT  =2  ; — 

S EL. NODES  =1,1;  SEL.DOFS  * 1,  3 ) 

•toe  [DBR] 

♦endif 
[xqt  exit 
♦end 

♦procedure  EL.ECC.BC  ( nodes. 1;  nodes.2;  es.nodes;  drilling.dof *<f alse>  ) 
. Define  Loads  and  Boundary  Conditions  for  ELASTICA  Model 
•def/i  nn.tot  * < [nodes. 1]* [nodes.2]  > 


. DEFINE  BOUNDARY  CONDITIONS 


[xqt  TAB 
CON  1 

♦if  < [drilling.dof]  /eq  <false>  > /then 
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ZERO  6 

♦do  $n*l  ,<nn.tot> 

<$n> 

♦enddo 
♦endif 
ZERO  2 

♦do  $n=l , <nn_tot> 

<ln> 

♦•nddo 
ZERO  4 

♦do  #nsl,<nn_tot> 

<tn> 

♦•nddo 

ZERO  1,2,3, 4,5, 6 
♦do  $n  » [nodes.l] , <nn_tot>, 
<$n> 

♦•nddo 


. Suppress  NORMAL  ROTATIONS  Everywhere 


• Suppress  LATERAL  MOTION  Everywhere 


. Suppress  TORSIONAL  ROTATION  Everywhere 


. CANTILEVER  Right  End  of  Bean 
[nodes. 1] 


. XXSSSSSS333C 

• Define  Loads 

, I3S83&XSSSBS 

[xqt  AUS 

. Apply  Uniform  Eccentric  Load  Consistently  (over  unit  width) 

Px  results  in  Moment  about  T of  2*PI  since  Eccentricity  ■ .5 

*def/el2.4  Px  « < -4.e<PI>  > 

♦def/el2.4  Px.l  * < <Px>/2.  > 

SYSVEC  : APPL  FORC  1 
♦if  < [ES.NODES]  /eq  4 > /then 
i«l  : j*l  : <Px.l> 

i«i  i j«<  [nodes.l] -*•!>  : <Px.l> 

♦elseif  < [ES.NODES]  /eq  9 > /then 
♦def/el2.4  Px.l  « < <Px>/6.  > 

♦def/el2.4  Px.4  « < 4e<Px>/6.  > 
i*l  : j*l  ; <Px.l> 

i*l  ; js< [nodes. 1]+1>  : <Px.4> 

i*l  ; j«<(2* [nodes.l] )+l>  : <Px.l> 

♦endif 

♦end 

♦procedure  ELASTICA.BC  ( nodes. 1;  nodes.2;  es.nodes;  drilling.dof «<f alse>  ) 
. Define  Loads  and  Boundary  Conditions  for  ELASTICA  Model 
♦def/i  nn.tot  * < [nodes.l]* [nodes.2]  > 

. uunniniKisMiitUKi 

. DEFINE  BOUND ART  CONDITIONS 

. Hunaisnsiimnnssn: 

[xqt  TAB 
CON  1 
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♦if  < [drill ing.dof]  /eq  <false>  ) /then 

ZERO  0 . Suppress  NORMAL  ROTATIONS  Everywhere 

♦do  |n*l,<nn.tot> 

<$n> 

♦enddo 
♦end  if 

ZERO  2 . Suppress  LATERAL  MOTION  Everywhere 

♦do  $nsl,<nn.tot> 

<$n> 

♦enddo 

ZERO  4 . Suppress  TORSIONAL  ROTATION  Everywhere 

•do  $n«l,<nn.tot> 

<$n> 

♦enddo 

ZERO  1,2, 3, 4,5, 6 . CANTILEVER  Right  End  of  Bean 

♦do  $n  ■ [nodes. 1] , <nn.tot>,  [nodes. 1] 

<$n> 

♦enddo 


. Define  Loads 


[zqt  AUS 

. Apply  Uniforn  N.y  Consistently  (over  unit  vidth) 

♦def/e!2.4  My  ■ < 2.^<PI>  > 

♦def /e!2.4  My.l  » < <My>/2.  > 

STSVEC  : APPL  FORC  1 
♦if  < [ES.NODES]  /eq  4 > /then 
i*6  s j«l  : <My_l> 

i=6  : j*< [nodes. l]+l>  : <My.l> 

♦elseif  < [ES.NODES]  /eq  9 > /then 
*def/el2.4  My.l  * < <My>/6.  > 

♦def/el2.4  My.4  « < 4e<My>/6.  > 
i*6  : j»l  : <My_l> 

i=6  : j*< [nodes. l]+l>  : <My.4> 

i»5  2 j«<(2*[nodes.l])+i>  s <My.l> 

♦end if 
♦end 


4.4.9  REFERENCES 

4.4- 1  Timoshenko,  S.  P.;  and  Gere,  J.  M.:  Theory  of  Elastic  Stability , McGraw-Hill,  New 

York,  1961. 

4.4- 2  Stanley,  G.  M.:  “Continuum-Based  Shell  Elements,”  PhD  Dissertation,  Stanford 

University,  1985. 

4.4- 3  Donnel,  L.  H.:  Beams,  Plates,  and  Shells , McGraw-Hill,  New  York,  1976. 
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4.5  Procedure  EULER.COLUMN 

4.5.1  GENERAL  DESCRIPTION 

4.5. 1.1  Problem  Description 

This  application  problem  involves  a linear  bifurcation  buckling  analysis  of  a thin  isotropic 
strip  subjected  to  uniform  compression  (see  Figure  4.5-1).  This  problem  is  important  in 
that  plate  and  shell  elements  are  frequently  used  to  model  stiffeners  of  stiffened  panels. 
When  these  panels  buckle  in  an  “overall”  Euler  modeshape  the  stiffeners  must  also  buckle 
in  their  plane  (see  Figure  4.5-2). 


Figure  4.5-1  Euler  Column  Problem 
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4.5. 1.2  Model  Description 

Procedure  EULER-COLUMN  models  the  entire  strip  using  2-D  quadrilateral  elements.  The 
mesh  is  generated  using  procedure  GEN.PLATE  and  the  boundary  conditions  are  specified 
in  procedure  C0LUMN_BC. 


4.5. 1.3  Analysis  Description 

Procedure  EULER-COLUMN  performs  a single  linear  buckling  analysis  with  a specified  pre- 
stress. The  solution  procedure  L_STABIL_1  is  used  to  perform  the  buckling  analysis. 


4.5. 1.4  Available  Solutions 

Analytical  solution  for  the  Euler  buckling  load  is  readily  obtained  from  reference  4.5-1, 
page  22-28.  The  Euler  buckling  load  is  given  by 


where 


Peuler  = 


tt2EI 

L2 


E = 

i r = 

L = 
t = 

h = 


Young’s  Modulus 

Moment  of  Inertia  = —rrth3 
12 

Column  Length 
Column  Thickness 
Column  Width 


For  a specified  uniform  membrane  stress  resultant  N°  of  -1000  lb/in.,  the  corresponding 
buckling  load  factor  is 

( Nx)euler  = Peuler /h  = A eulerN ® 

For  the  geometry  and  material  properties  used  as  default  values  of  the  procedure  argu- 
ments, the  exact  solution  for  simple-support  boundary  conditions  corresponds  to  a value 
of  0.456926  for  A EULER  (*•«■>  the  smallest  eigenvalue). 


4.5.2  PROCEDURE  USAGE 

Procedure  EULER_C0LUMH  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive,  and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  ar- 
guments are  order-independent,  and  most  have  default  values  thus  making  them  optional. 
The  formal  syntax  is  as  follows: 


*call  EULER-COLUMN  ( argl  * vail  ; arg2  * val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 
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The  allowable  arguments  for  procedure  EULER.COLUMN  are  summarized  in  the  following 
table,  along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults 
are  generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to 
this  rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

E 

10.  E6 

Young’s  Modulus 

ES-PROC 

ESI 

Element  Processor 

ES-NAME 

EX47 

Element  name 

LX 

30.0 

Length  in  x-direction 

LY 

1.0 

Length  in  y-direction 

N0DES.1 

31 

Number  of  nodes  along  x 

N0DES-2 

3 

Number  of  nodes  along  y 

NU 

0.0 

Poisson’s  ratio 

PRINT 

<false> 

Print  flag 

PS_1 

-1000.0 

Uniform  axial  compression  prestress 

THICKNESS 

0.05 

Thickness 

4.5.3  ARGUMENT  DESCRIPTIONS 

4.5.3. 1 E 

~ l 

Young’s  elastic  modulus  (default:  10.0  x 10®  psi). 

4. 5.3.2  ES.NAME 

Element  name  (default:  EX47).  This  is  the  name  of  the  specific  shell-element  type  you 
wish  to  select,  within  the  element  processor  defined  by  argument  ES-PROC.  The  default 
shell-element  type,  EX47,  is  a 4-noded  quadrilateral  element  implemented  in  processor 
ESI,  and  described  in  the  Computational  Structural  Mechanics  Testbed  User’s  Manual 
(see  ref.  4.5-2). 

4. 5.3. 3 ES-PROC 

Element  Processor  (default:  ESI)  This  is  the  name  of  the  structural  element  (ES)  processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  processor  ESI,  is  described  in  the  Computational  Structural  Mechanics  Testbed 
User’s  Manual  (see  refs.  4.5-2). 

4.5.3. 4 LX 

Length  of  the  plate  model  in  the  *— direction  (default:  31.0  inches). 

4. 5.3. 5 LY 

Length  of  the  plate  model  in  the  y— direction  (default:  1.0  inches). 
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4.5.3.0  KODES-1 

Number  of  nodes  along  x- direction  (default:  31). 

4. 5.3. 7 NODES-2 

Number  of  nodes  along  y-direction  (default:  3). 

4. 5.3. 8 NU 

Poisson’s  ratio  (default:  0 . 0). 

4. 5.3.0  PRINT 

Print  flag  (default:  <false>).  If  the  argument  PRINT  is  defined  to  be  <true>,  then  all 
computed  results  (displacements,  modeshapes,  stresses)  will  be  printed. 

4.5.3.10  PS_1 

Uniform  axial  compression  prestress  (default:  -1000  lb/in.). 

4.5.3.11  THICKNESS 

Thickness  of  the  plate  (default:  0.05  inches). 

4.5.3.12  WTDEN 

Weight  density  (default:  0.1  lb/in.3).  Processor  LAU  converts  the  weight  density  to  mass 
density. 

4.5.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  EULER.C0LUMN  may  be  used  by  preceding  the  procedure  name  by  the  ♦call 
directive.  Procedure  arguments  may  be  changed  from  their  default  values  by  including 
any  or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or 
blank  is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦call  EULER_COLUMN  ( ES_PR0C  - ESI  ; ESJVAME  - EI47  ; — 

LX  - 7.5  ; — 

LY  = 10.0  ; — 

E = 30. E6  ; — 

NTJ  * 0.3  ; — 

PRINT  * <false>  ; — 

THICKNESS  =0.1  ; — 

WTDEN  « 0.1  ) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  that  is, 

♦call  EULER_C0LUMN 

Using  the  default  values  for  the  procedure  arguments,  the  amount  of  CPU  time 
required  for  this  analysis  on  various  computer  systems  is  shown  in  Table  4.5*1. 
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Table  4.5-1  CPU  TIMES  Table 


Computer  System 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

4.5.5  LIMITATIONS 
None 

4.5.6  ERROR  MESSAGES  AND  WARNINGS 


None. 

4.5.7  PROCEDURE  FLOWCHART 

EULER_COLUMN  (main  procedure) 

GEN.PLATE  (define  model) 

COLUMN J3C  (define  simple-support  boundary  conditions) 

4.5.8  PROCEDURE  LISTING 
4.5.8. 1 UNIX  Script 

euler-coluntn . com 

Cd  tSCR/tUSER 
rm  euler  .column.  101 
cp  $CSM_PRC/proclib.gal  proclib.gal 
chaod  u+w  proclib.gal 
time  testbed  « \endinput 
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•open  1 •al0r.coluaz1.lOl 
•sat  echo  off 

•daf/a  aigansolver.name  = EIG2 
•def/a  solvar.naae  a IN? 


•sat  plib*28 

•open  28  proclib.gal  /old 

•add  ’ ICSM.APP/aular.column/euler. column. clp » 
. Inplana  Buckling  of  a Thin  Strip 


♦call  EULER. COLUMN  ( as.nanaa ’0x97’ ; es.proc=*es7’) 


[XQT  EXIT 
\ and input 


4.5. 8. 2 CLAMP  Procedure 


euler_column . clp 


•procedure  EULER. COLUMN  ( 


as. name  = ’EX47>  ; 
••_proc  = ’ESI’  ; 
• a 10.0046; 
nu  = .3  ; 
thicknassa  0.05  ; 
P»_l  = -1000.0 


lx  =30.0  ; — 

ly  al.o  ; — 

nodes. 1 =31  ; — 

nodes. 2 =3  ) 


•call  GEN.PLATE  ( es_proc= [es.proc] ;es.name=  [es.n&ae] ; -- 
xyzl=0. 0,0. 0,0.0  ; — 
xyz2=[lx] ,0.0,0.0  ; — 
xyz3=[lx] , [ly] ,0.0  ; — 
xyz4=0.0, [ly] ,0.0  ; — 

nodas. 1= [nodas. 1] ; nodai .2= [nodes. 2] ; ~ 
nsactal;  •=  [a]  ;nu=[nu]  ;thickn«ss=  [thickness]  ; — 
bc.procaduraa  ’C0LUMN.BC’  ) 

•toe  1 
[XQT  TAB 

TITLE ’EULER  COLUMN  BUCKLING  PROBLEM 


•call  L.STABIL.l  ( ps.la[ps_l];  print=<true>  ) 

•toe  1 

•and 

•procedure  C0LUMN.BC  (nodas. 1=31;  nodas_2=3;  - 
as.nodasa<as_nen> ; drilling_dof=<true>) 
•daf/i  nl  = 1 

•daf/i  n2  a [nodas. 1] 

•daf/i  n3  a < [nodes. 1]* [nodas. 2]  > 

•daf/i  n4  = < [nodes. 1]*( [nodes. 2] -1)  ♦ 1 > 

CON  CASE  1 
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ZERO  3 4 6:  <nl>,<n3> 

ZERO  2 : <nl>,<n4>, [nod**_l] 

ZERO  2 : <n2>,<n3>, Cnod«*_l] 

•if  < [drilling.dof]  /*q  0 > /than 
ZERO  «:  <nl>,<n3> 

••ndif 

*«nd 


4.5.9  REFERENCES 

4.5- 1  Brush,  Don  O.  and  Almroth,  Bo  0.:  Buckling  of  Bara,  Plates,  and  Shells,  McGraw- 

Hill  Book  Company,  New  York,  1975. 

4.5- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual  NASA  TM-100644,  October  1989. 


4.5-  8 


CSM  Testbed  Procedures  Manual 


Revised  5/25/90 


Application  Procedures 


FOCUS_PANEL 


4.6  Processor  FOCUS_PANEL 


THIS  SECTION  UNDER  PREPARATION 


5/24/90 


CSM  Testbed  Procedures  Manual 


4.6- 


FOCUS.PANEL 


Application  Procedures 


THIS  PAGE  LEFT  BLANK  INTENTIONALLY. 


4.6-  2 


CSM  Testbed  Procedures  Manual 


5/24/90 


FREE.EDGE 


Application  Procedures 


4.7  Processor  FREEJSDGE 


THIS  SECTION  UNDER  PREPARATION 


5/24/90 


CSM  Testbed  Procedures  Manual 


4.7-  1 


PRECEDING  PAGE  BLANK  NOT  FILMED 


FREE_EDGE 


Application  Procedures 


THIS  PAGE  LEFT  BLANK  INTENTIONALLY. 


4.7-  2 


CSM  Testbed  Procedures  Manual 


5/24/90 


Application  Procedures 


GEN_STF_PANEL 
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4.9  Procedure  HINGED.CYL 

4.0.1  GENERAL  DESCRIPTION 

To  verify  the  nonlinear  aspects  of  the  shell-element  formulation,  implementation,  and  adap- 
tive (Crisfield/Riks)  quasi-static  solution  algorithm,  the  snap-through  of  a hinged  cylinder 
under  a point  force  is  considered.  This  problem,  which  involves  only  moderate  geometric 
nonlinearities,  is  nevertheless  interesting  due  to  the  limit-point  characteristics  of  the  load- 
displacements  curve.  Furthermore,  due  to  the  popularity  of  the  problem,  an  abundance  of 
numerical  results  are  available  for  comparison. 

This  section  describes  a prcedure  that  solves  the  hinged  cylinder  problem  (see  figure  4.9-1) 
which  exhibits  snap-through  behavior. 


h = 12.7  mm 
0 = .1  rad 

E = 3102.75  N/mm 
V = *3 


Figure  4.9-1  Hinged  Cylinder  Problem. 
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4.9. 1.1  Model  Description 

4.9. 1.2  Analysis  Description 

4. 9. 1.3  Available  Solutions 


4.9.2  PROCEDURE  USAGE 

Procedure  HINGED.CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive, and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 


♦call  HINGED.CYL  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  HINGED.CYL  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES.PR0C 

ESI 

Element  Processor 

ES.NAME 

EX97 

Element  name 

ES.PARS 

0. 

Element  research  parameters 

NNODESJt 

5 

Number  of  axial  nodes 

NNODES.C 

5 

Number  of  circumferential  nodes 

SPEC _D IS 

<false> 

Specified  displacements 

AUTO _D0F_SUP 

<true> 

Automatic  d.o.f.  suppression 

DRILLINGJ>0F 

<false> 

Drilling  (normal  rotational)  freedoms 

NSTEPS 

10 

Number  of  nonlinear  load  steps 

BEGJSTEP 

1 

Starting  load  step  number 

MAI.CUTS 

3 

Maximum  number  of  step  cuts  (halvings) 

BEG.L0AD 

.1 

Starting  load  factor 

MAX-LOAD 

1.0 

Maximum  load  factor 

DBC 

CC.DBC 

Computational  database  name 

DBR 

CC.DBR 

Results  database  name 

PREP 

<true> 

Perform  pre-processing  (model  generation) 

LINEAR 

<false> 

Perform  nonlinear  (post-buckling)  analysis 

TH.SCALE 

1.0 

TOL 

.001 
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4.9.3  ARGUMENT  DESCRIPTIONS 

4.9.3.1  AUT0_D0F_SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffnesses  (see 
argument  DRILLING_DOF). 

4. 9.3. 2 BEG-LOAD 

Starting  load  factor  in  nonlinear  analysis  (default^ . 1).  This  factor  is  multiplied  times  the 
reference  load  vector  to  obtain  the  starting  load  vector.  For  example,  if  specified  forces  are 
applied  (which  is  the  default  option),  then  BEG.L0AD  = .1  means  that  the  first  load  step  to 
be  computed  in  the  nonlinear  analysis  will  be  at  one-tenth  of  the  classical  buckling  load 
level.  Note  that  this  argument  is  irrelevant  for  re-start  runs.  For  more  details,  refer  to  the 
same  argument  name  under  solution  procedure  NL_STATIC_1. 

4. 9. 3. 3 BEG_STEP 

Number  of  starting  load  step  in  nonlinear  analysis  (default=l).  This  is  the  number  of  the 
first  step  to  be  computed  during  an  analysis  interval.  When  starting  a nonlinear  analysis, 
the  first  step  is  obviously  1.  When  re-starting  (i.e.,  continuing  in  a subsequent  run)  a 
nonlinear  analysis,  BEG_STEP  should  be  set  to  the  number  of  the  next  step  to  be  computed 
— not  to  the  number  of  the  last  step  computed.  The  solution  procedure  (NL_STATIC_l) 
will  automatically  use  any  previous  step(s)  required  to  continue  the  analysis  — providing 
the  necessary  steps  are  available  in  the  database.  Currently,  the  number  of  consecutive 
preceding  steps  required  for  a restart  is  three.  For  more  details,  refer  to  the  same  argument 
name  under  solution  procedure  NL_STATIC_1. 

4.9. 3. 4 DBC 

Name  of  computational  database  file  (default=HC.DBC).  This  file  will  contain  all  model 
definition  data,  element  computational  data,  one  copy  of  the  assembled  and  factored  stiff- 
ness matrices,  the  buckling  eigensolution,  and  displacement  and  internal  force  vectors  for 
every  load  step  computed  during  the  analysis. 

4.9.3. 5 DBR 

Name  of  results  database  file  (default^HC.DBR).  This  file  will  contain  one  dataset  called 
RESPONSE. HISTORY  generated  during  nonlinear  analysis.  The  dataset  will  contain  record 
groups  : — indexed  by  load  step  number  — for  a number  of  solution  parameters,  including 
the  load  factor  and  maximum  axial  displacement  components.  This  database  is  valuable 
for  obtaining  load-displacement  plots,  and  for  evaluating  the  performance  of  the  nonlinear 
solution  strategy  employed. 
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4.9.3.0  DRILLING-DOF 

Drilling  degree  of  freedom  flag  (default:  <false>).  Drilling  freedoms  are  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  off  forces  all  drilling  freedoms 
in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be  active  — 
unless  they  are  automatically  suppressed  using  use  of  the  AUT0_D0F_SUP  argument.  Note 
that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with  their 
own  surface-normal  directions  (at  nodes),  when  shell  elements  are  assembled  as  facets  ap- 
proximating an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  (e.g.,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUT0_D0F_SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLING _D0F  argument  should  be  set  to  <true>  regardless  of  how  AUTO _D0F_SUP  is 
set. 

4.9. 3.7  ESJfAME 

Element  name  (default:  EX97).  This  is  the  name  of  the  specific  shell-element  type  you  wish 
to  select,  within  the  element  processor  defined  by  argument  ES.PR0C.  The  default  shell- 
element  type,  EX97,  is  a 9-noded  quadrilateral  element  implemented  in  processor  ESI,  and 
described  in  The  Computational  Structural  Mechanics  Testbed  User’s  Manual  (see  ref. 
4.9-1). 


4.9.3. 8 ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

4. 9.3.9  ES-PROC 

Element  processor  (default:  ESI)  This  is  the  name  of  the  structural  element  (ES)  Processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  processor  ESI,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual. 

4.9.3.10  MAX-CUTS 

Maximum  number  of  load  step  cuts  in  nonlinear  analysis  (default=3).  For  more  details, 
refer  to  the  same  argument  name  under  solution  procedure  NL-STATIC-1. 

4.9.3.11  MAX-LOAD 

Maximum  load  factor  in  nonlinear  analysis  (default=l  .0).  This  sets  an  upper  limit  for  the 
load  level,  which  can  be  a convenient  way  of  terminating  the  arc-length  controlled  solution 
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algorithm  employed  within  procedure  HL_STATIC_i.  Since  the  load  factor  is  actually  an 
unknown  in  this  solution  procedure,  there  is  no  way  of  knowing  a-priori  how  many  load 
steps  will  be  required  to  attain  a particular  load  level.  Thus,  the  analysis  will  be  terminated 
when  either  MAX_L0AD  is  exceeded  or  NSTEPS  is  exceeded  — whichever  comes  first.  For  more 
details,  refer  to  the  same  argument  name  under  solution  procedure  HL_STATIC_1. 

4.0. 3.12  HNODES-A 

Number  of  axial  nodes  (default:  7).  This  is  the  number  of  nodes  you  wish  to  have  along 
the  axial  direction  of  the  cylindrical  shell  model,  ».e.,  along  one-tenth  of  the  full  cylinder’s 
length.  Note  that  this  number  should  be  consistent  with  the  number  of  nodes  per  element. 
For  example,  HNODES-A  can  be  any  number  greater  than  1 for  4-node  quadrilateral  elements, 
whereas  it  must  be  an  odd  number  greater  than  1 for  9-node  quadrilateral  elements. 

4.0. 3.13  NKODES-C 

Number  of  circumferential  nodes  (default:  7).  This  is  the  number  of  nodes  you  wish 
to  have  along  the  circumferential  direction  of  the  cylindrical  shell  model,  i.e.,  along  15 
degrees  of  circular  arclength.  Note  that  this  number  should  be  consistent  with  the  number 
of  nodes  per  element.  For  example,  RHODES  _C  can  be  any  number  greater  than  1 for  4- 
node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for  9-node 
quadrilateral  elements. 

4.0. 3.14  HOWL  I WEAR 

Nonlinear  (post-buckling)  analysis  flag  (default=<true>).  This  flag  should  be  turned  on 
if  you  want  to  perform  nonlinear  analysis  in  the  current  run.  The  pre-requisites  are  pre- 
processing, stability  analysis  and  imperfection  superposition,  all  of  which  may  be  performed 
either  in  a previous  run  or  in  the  current  run  — by  setting  the  appropriate  arguments  (*.e., 
PREP,  STABILITY  and  IMPERFECTIOH). 

4.0. 3.15  WSTEPS 

Maximum  number  of  load  steps  to  be  computed  in  the  current  nonlinear  analysis  run 
(default=30).  For  more  details,  refer  to  the  same  argument  name  under  solution  procedure 
HL-STATIC-1. 

4.0. 3.16  POST 

Postprocessing  flag  (default=<f  alse>).  This  flag  should  be  turned  on  if  you  want  selected 
response-history  parameters  to  be  added  to  the  HC.DBR  database.  Note  that  it  is  not 
necessary  to  use  this  option  in  order  to  archive  the  basic  load-displacement  curve  and 
solution  parameters.  It  is  only  needed  if  you  wish  to  archive  special  displacement  and/or 
internal  force  component  response  histories  post-facto. 
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4.0. 3.17  PREP 

Preprocessing  flag  (default=<true>).  This  flag  must  be  turned  on  the  first  time  procedure 
COMPRESSED.CYL  is  run,  as  it  causes  the  model  to  be  generated.  If  subsequent  runs  are 
used  to  perform  other  stages  of  the  analysis  (e.y.,  nonlinear  re-starts),  then  PREP  must  be 
set  to  <false>  for  those  subsequent  runs. 

4.0. 3.18  SPEC J? IS 

Specified  displacement  flag  (default:  <false>).  By  setting  this  flag  to  <true>,  uniform 
axial  end-shortening  is  imposed  instead  of  the  uniform  axial  loading.  This  can  make  a 
significant  difference  in  both  the  buckling  and  post-buckling  response,  and  is  not  recom- 
mended for  novice  users  of  this  procedure.  This  is  because  thin  axially-compressed  shells 
axe  not  only  imperfection  sensitive,  but  also  boundary  condition  sensitive,  and  uniform  ax- 
ial loading  does  not  correspond  (exactly)  to  uniform  axial  edge  displacements.  Note  that 
the  reference  specified  displacement  (i.e.,  end-shortening)  magnitude  equals  .01  inches, 
and  corresponds  to  an  axial  load  of  about  .467  times  the  classical  buckling  load. 


4.9.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  HINGED_CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or 
all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦call  HIHGED.CYL  ( 


ES.PROC  - ESI  ; ES.NAME  = EX97  ; — 


NN0DES.A 

SE 

5 

NNODES.C 

= 5 ; 

SPEC.DIS 

S 

<false> 

I 

DRILLING. 

.DOF 

= <false> 

1 

AUT0_D0F_ 

.SUP 

= <true> 

1 

PREP 

= 

<true> 

1 

NONLINEAR  = 

<true> 

9 

POST 

ss 

<true> 

— 

BEG.STEP 

= 

1 

— 

NSTEPS 

m 

10 

— 

BEG.L0AD 

s 

.1 

— 

MAX_L0AD 

ss 

3.0 

— 

DBc 

s 

HC.DBc 

DBr 

HC.DBr  ) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  i.e., 


♦call  HINGED.CYL 


This  will  perform  linear  buckling  eigenvalue  analysis  and  30  steps  of  nonlinear  anal- 
ysis with  a 5x5  grid  of  ES1/EX97  shell  elements.  The  time  required  for  this  analysis 
is  machine-dependent.  Using  the  default  values  for  the  procedure  arguments,  the 
amount  of  systems  is  shown  in  Table  4.9-1. 


4.9-  6 


CSM  Testbed  Procedures  Manual 


Revised  5/23/90 


Application  Procedures 


Hinged  Cylinder 


Table  4.9-1  CPU  TIMES  Table 


Computer  System 

i 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

(E2)  Not  suppressing  the  drilling  rotational  freedoms  can  cause  strange  behavior  for  some 
elements  during  nonlinear  analysis.  On  the  other  hand,  suppressing  these  free- 
doms explicitly  using  the  DRILLINGJ)OF  argument  may  cause  some  over-stiffening 
for  coarse  meshes  with  some  elements.  It  is  probably  best  to  suppress  the  drilling 
freedoms  explicitly  unless  the  element  actually  has  intrinsic  drilling  stiffness. 


4.9.5  LIMITATIONS 


4.9.0  ERROR  MESSAGES  AND  WARNINGS 
None. 


4.9.7  PROCEDURE  FLOWCHART 


HINGED-CYL 

GEN-SHELL 

HC-BC 

HCDJBC 

L_STATIC_1 

NL_STATIC_1 

HISTORY 


(main  procedure) 

(generate  model) 

(generate  boundary  conditions  and  applied  loads) 

(generate  boundary  conditions  and  specified  displacements) 
(perform  linear  static  analysis) 

(perform  nonlinear  static  analysis) 

(archive  selected  displacement /force  histories) 
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4.9.8  PROCEDURE  LISTING 

4.9.9  REFERENCES 

4.9-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User's 
Manual.  NASA  TM-100644,  October  1989. 
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4.10  Procedure  PEAR_CYL 

4.10.1  GENERAL  DESCRIPTION 

The  nonlinear  shell  response  of  cylindrical  shells  with  a noncircular  cross-section  became 
the  subject  of  intense  research  in  the  early  1970’s.  Early  Space  Shuttle  fuselage  configura- 
tions were  noncircular,  and  the  ‘‘pear-shaped”  cross-section  was  a leading  candidate.  The 
pear-shaped  cylinder  shown  in  Figure  4.10-1  has  been  adopted  by  many  researchers  and 
the  behavior  of  this  shell  subject  to  a uniform  end-shortening  investigated  (e.y.,  refs.  4.10- 
1 and  4.10-2).  The  results  in  this  section  are  compared  with  results  reported  by  Hartung 
and  Ball  (ref.  4.10-1)  and  by  Almroth  and  Brogan  (ref.  4.10-2).  In  all  cases,  only  one 
fourth  of  the  cylinder  is  modeled.  The  shell  is  isotropic  with  a uniform  thickness  of  0.01 
inches.  The  boundaries  are  simply  supported. 


Material  Properties:  Geometric  Parameters: 

E - 107psi  R»  1.0  inch 

v m 0.3  L«  0.8  inches 


t - 0.01  inches 


Figure  4.10-1  Pear-shaped  cylinder  - geometry,  properties,  and  loading. 
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4.10.1.1  Model  Description 

The  finite  element  model  of  the  pear-shaped  cylinder  is  generated  in  segments  as  shown 
in  figure  4.10-2.  Joint  locations  and  element  connectivity  are  defined  using  the  mesh 
generating  capabilities  of  Testbed  processors  TAB  and  ELD.  The  user  must  specify  only 
the  number  of  elements  along  the  45°  arc  of  segment  1 (NEL -ARC),  the  number  of  elements 
along  the  flat  edge  of  segment  2 (NEL .FLAT),  and  the  number  of  elements  and  through  the 
depth  of  the  cylinder  in  the  z-direction  (NELJ)EPTH).  The  finite  element  mesh,  loading, 
and  constraints  are  then  automatically  generated.  In  order  to  facilitate  both  the  model 
generation  and  the  results  interpretation,  several  alternate  reference  frames  have  been 
defined. 

Reference  frames  1,  2,  and  3 are  defined  automatically  in  processor  TAB  as  global  reference 
frames,  rotated  —90°  about  z axis,  and  rotated  90°  about  y axis,  respectively.  Reference 
frames  4,  5,  and  6 are  translations  of  the  origin  to  points  A,  B,  and  C,  respectively  (see 
figure  4.10-2).  Frames  7 and  8 involve  rotations  about  the  global  z-axis  and  include  no 
translations. 

The  results  of  interest  in  this  analysis  are  the  normal  and  tangential  stresses  and  displace- 
ments. Each  joint  is  therefore  assigned  a joint  reference  frame  to  which  displacements, 
constraints,  and  loads  are  referred.  The  stress  component  directions  are  defined  by  the 
order  of  the  element  connectivity  using  the  element  network  generators  of  processor  ELD. 

Segment  1 of  the  finite  element  model  is  generated  using  reference  frame  4.  The 
FORMAT=2  statement  of  the  TAB/JLOC  subprocessor  allows  for  the  generation  of  a 
regular  mesh  of  nodes  on  the  cylindrical  surface  of  segment  1.  The  TAB/JLOC  input  is  in 
cylindrical  coordinates  with  point  A as  the  origin  of  the  cylindrical  frame.  The  joints  in 
this  segment  are  each  assigned  joint  reference  frame  -4  indicating  a cylindrical  frame  with 
the  joint  1-axis  concident  with  the  outward  normal  at  each  joint,  the  joint  3-axis  coincident 
with  the  global  z-axis,  and  the  joint  2-axis  coincident  with  the  tangent  to  each  joint. 

Segment  2 is  also  generated  using  frame  4 although  in  this  case,  frame  4 is  employed  as 
a rectangular  frame.  The  TAB/JLOC  subprocessor  generates  a regular  mesh  of  nodes 
connecting  the  four  corners  of  the  rectangular  surface  of  the  segment.  The  TAB/JLOC 
input  is  in  cartesian  coordinates  with  point  A at  the  origin  of  the  rectangular  frame.  Each 
joint  in  this  segment  is  assigned  joint  reference  frame  7 indicating  that  the  1-  and  2-axes  of 
each  joint  are  coincident  with  x and  y axes  rotated  135°  about  global  z.  The  joint  3-axis 
and  globed  z-axis  are  coincident. 

Segment  3,  a 135°  section  of  arc,  is  generated  using  reference  frame  5,  centered  at  point  B. 
As  with  segment  1,  the  FORMAT=2  statement  of  the  TAB/JLOC  subprocessor  is  used 
to  generate  a regular  mesh  of  nodes  on  the  cylindrical  segment.  The  number  of  elements 
around  the  circumference  of  this  segment  is  assumed  to  be  three  times  the  number  of  ele- 
ments around  the  circumference  of  Segment  1.  The  joints  in  this  segment  are  each  assigned 
joint  reference  frame  -5  indicating  a cylindrical  frame  with  the  joint  1-axis  coincident  with 
the  outward  normal  at  each  joint,  the  joint  3-axis  coincident  with  the  global  z-axis,  and 
the  joint  2-axis  coincident  with  the  tangent  to  each  joint. 
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Segment  4 is  generated  using  reference  frame  6,  centered  at  point  C.  Frame  6 is  used  as  a 
rectangular  frame  to  generate  a regular  mesh  of  nodes  connecting  the  four  corners  of  the 
rectangular  surface  of  the  segment.  The  number  of  elements  along  this  segment  is  half  that 
used  in  segment  2.  Each  joint  in  this  segment  is  assigned  joint  reference  frame  8 indicating 
that  the  1-  and  2-axes  of  each  joint  are  coincident  with  x-  and  y-  axes  rotated  270°  about 
global  z-axis.  The  joint  3-axis  and  global  z-axis  are  coincident. 

Three  finite  element  models  were  considered  in  this  study  as  shown  in  Figure  4.10-3.  Mesh  1 
(3  x 26)  has  three  nodes  through  the  cylinder  depth  and  26  nodes  around  the  half-cylinder 
circumference  (see  Figure  4.10-3a).  The  mesh  is  composed  of  50  4-node  quadrilateral  shell 
elements  (ES1/EX47  or  ES5/E410)  and  a total  of  78  nodes.  Mesh  2 (5  x 37)  has  five  nodes 
through  the  cylinder  depth  and  37  nodes  around  the  half-cylinder  circumference  (see  Figure 
4.10-3b).  This  mesh  accommodates  both  4-  and  9-node  elements  and  will  contain  either 
144  4-node  (ES1/EX47  or  ES5/E410)  or  36  9-node  (ESI /ES97)  quadrilateral  shell  elements 
and  185  nodes.  Mesh  3 (7  x 51)  has  seven  nodes  through  the  cylinder  depth  and  51  nodes 
around  the  half-cylinder  circumference  (see  Figure  4.10-3c).  Mesh  3 accommodates  both 
4-  and  9-node  elements  and  will  contain  either  300  4-node  (ES1/EX47  or  ES5/E410)  or 
75  9-node  (ES1/EX97)  quadrilateral  shell  elements  and  357  nodes. 
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4-node  elements 

(b)  Mesh  2. 


(c)  Mesh  3. 


9-node  elements 


9-node  elements 


Figure  4.10-3  Finite  element  models  of  pear-shaped  cylinder. 
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4.10.1.2  Analysis  Description 

4.10.1.3  Available  Solutions 

The  pear-shaped  cylinder  is  representative  of  a shell-type  structure  with  a complex  nonlin- 
ear collapse  behavior.  The  shell  response  becomes  nonlinear  at  a very  low  value  of  applied 
end-shortening,  and  the  normal  deflections  of  the  flat  portions  of  the  shell  increase  rapidly. 
The  nonlinear  analysis  of  the  cylinder  is  performed  using  the  procedure  NL_STATIC_1.  The 
distribution  of  the  normal  displacement  (normal  to  the  shell  surface)  is  shown  in  Figure 
4.10-4  as  a function  of  the  applied  load  for  the  point  of  maximum  normal  displacement  (at 
x =0,  9 =180°)  and  for  all  meshes  and  element  types  considered.  These  results  indicate 
that  a converged  solution  is  provided  by  the  ES1/EX97  elements  as  the  curves  for  Mesh 
2 and  Mesh  3 in  Figure  4.10-4c  are  nearly  identical.  These  three  solutions  correspond  to 
a discretization  with  185  nodes  with  either  144  4-node  flat  classical  (ES5/E410)  elements, 
144  4-node  flat  shear-flexible  (ES1/EX47)  elements,  or  36  9-node  curved  shear- flexible 
(ES1/EX97)  elements. 

A comparison  of  the  three  solutions  obtained  using  Mesh  2 is  provided  in  Figure  4.10-5.  The 
effects  of  transverse  shear  flexibility,  present  in  the  ES1/EX97  and  ES1/EX47  elements  but 
not  present  in  ES5/E410  elements,  are  apparent  near  collapse.  The  response  curves  begin 
to  separate  slightly  at  approximately  half  the  elastic  collapse  load  with  the  shear  flexible 
elements  exhibiting  a consistent,  yet  slightly  lower,  stiffness  than  the  response  obtained 
using  the  ES5/E410  element.  The  elastic  collapse  loads  obtained  using  the  4-node  flat 
elements  is  nearly  the  same.  However,  results  obtained  using  higher-order  curved  elements 
to  model  the  shell  and  its  response  are  approximately  10%  lower  than  the  collapse  loads 
obtained  using  the  flat  elements. 
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(a)  Models  using  4-node  flat  classical  (ES5/E410)  elements. 


(b)  Models  using  4-node  flat  shear-flexible  (ES1/EX47)  elements. 


(c)  Models  using  9-node  curved  shear-flexible  (ES1/EX97)  elements. 
Figure  4.10-4  Nonlinear  response  of  pear-shaped  cylinder. 
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Figure  4.10-5  Nonlinear  response  of  pear-shaped  cylinder  — Mesh  2. 


Hartung  and  Ball  (ref.  4.10-1)  reported  an  elastic  collapse  load  of  2372  pounds  using  a 
finite  difference  version  of  STAGS.  Several  years  later,  Almroth  and  Brogan  (ref.  4.10-2) 
performed  a convergence  study  using  the  finite  element  version  of  STAGS  and  estimated 
that  the  elastic  collapse  load  was  between  2300  and  2400  pounds.  These  results,  along 
with  the  Testbed  results,  and  results  from  independent  elastic  collapse  analyses  using  the 
STAGSC-1  computer  code,  lire  summarized  in  Table  4.10-1. 


In  Figure  4.10-6,  the  normal  deflection  at  x =0  is  plotted  as  a function  of  the  circumferential 
coordinate  9 for  four  different  levels  of  applied  load:  154,  300,  1689,  and  2464  pounds 

(load  steps  10,  20,  30  and  40  respectively).  The  final  load  step  (step  40  at  2464  pounds) 
occurs  just  after  collapse.  The  flat  portions  of  the  shell,  from  45°  < 6 < 90°  and  157.5°  < 
9 < 180°,  show  a rapid  growth  in  normal  deflections.  Associated  with  this  growth  is  a 
redistribution  of  the  longitudinal  stress  indicating  that  the  curved  portions  begin  to  take 
up  a larger  percentage  of  the  total  axial  load.  This  type  of  behavior  can  be  seen  in  Figure 
4.10-7  which  plots  the  longitudinal  stress  resultant  as  a function  of  the  circumferential 
coordinate  for  load  steps  10,  20,  30  and  40. 
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Table  4.10-1  Elastic  collapse  loads  for  pear-shaped  cylinder. 


Source 

Element 

Name 

MeshC1) 

Elastic  Collapse  Load, 
pounds 

Hartung  and  Ball 

(2) 

4 x 40 

2372 

Almroth  and  Brogan 

411 

3 x 27 

3586 

5 x 37 

2731 

7 x 47 

2586 

440 

5 x 37 

2657 

7 x 47 

2530 

STAGSC-1 

410 

3 x 26 

3570 

5 x 37 

2734 

CSM  Testbed 

ES5/E410 

3 x 26 

3343 

5 x 37 

2753 

7 x 51 

2577 

ES1/EX97 

5 x 37 

2475 

7 x 51 

2466 

ES1/EX47 

3 x 26 

3945 

5 x 37 

2696 

7 x 51 

2568 

v1/  Mesh  description  is  n x m meaning  n rows  by  m columns  of  nodes. 
Finite  difference  version  of  STAGS. 
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Load  step  40  ■ 


Normal  010 
deflection 
w,  in.  005 


-Load  step  30  \ 


- Load  step  20 


• Load  step  10 


60  90  12(5  150 

Circumferential  coordinate  9 , degrees 


Figure  4.10-6  Normal  deflection  distribution  at 

cylinder  midlength  for  various  load  steps. 


Load  step  40 


Longitudinal  ^0 
inplane  stress  250 
resultant,  Ib/in. 

20 


Load  step  30 


Load  step  20 


Circumferential  coordinate  9 , degrees 

Figure  4.10-7  Longitudinal  inplane  stress  resultant  Nx  distribution 

at  cylinder  midlength  for  various  load  steps. 
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4.10.2  PROCEDURE  USAGE 

Procedure  PEAR_CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


•call  PEAR.CYL  ( argl  * vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  PEAR.CYL  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES.PR0C 

ESI 

Element  Processor 

ESJiAME 

EX97 

Element  name 

ESJPARS 

0. 

Element  research  parameters 

NEL_ARC 

Number  of  elements  along  45°  arc  segment 

NELJ)EPTH 

Number  of  elements  along  depth  of  shell 

NEL-ELAT 

Number  of  elements  along  largest  flat  segment 

LD-DIR 

Direction  to  total  load 

LINEAR 

Perform  linear  analysis 

NSTEPS 

30 

Number  of  nonlinear  load  steps 

BEG .STEP 

1 

Starting  load  step  number 

MAX.CUTS 

3 

Maximum  number  of  step  cuts  (halvings) 

BEG.L0AD 

.1 

Starting  load  factor 

MAXJL0AD 

1.0 

Maximum  load  factor 

DBC 

PEAR. DBC 

Computational  database  name 

DBR 

PEAR. DBR 

Results  database  name 

STABILITY 

<true> 

Perform  linear  stability  (buckling)  analysis 

NONLINEAR 

<true> 

Perform  nonlinear  analysis 

POST 

<false> 

Perform  postprocessing  (selected  data  archival) 

4.10.3  ARGUMENT  DESCRIPTIONS 
4.10.3.1  BEG-LOAD 

Starting  load  factor  in  nonlinear  analysis  (default= . 1).  This  factor  is  multiplied  times  the 
reference  load  vector  to  obtain  the  starting  load  vector.  For  example,  if  specified  forces  are 
applied  (which  is  the  default  option),  then  BEG-LOAD  = .1  means  that  the  first  load  step  to 
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be  computed  in  the  nonlinear  analysis  will  be  at  one-tenth  of  the  classical  buckling  load 
level.  Note  that  this  argument  is  irrelevant  for  re-start  runs.  For  more  details,  refer  to  the 
same  argument  name  under  solution  procedure  NL_STATIC_1. 

4.10.3.2  BEG-STEP 

Number  of  starting  load  step  in  nonlinear  analysis  (default=l).  This  is  the  number  of  the 
first  step  to  be  computed  during  an  analysis  interval.  When  starting  a nonlinear  analysis, 
the  first  step  is  obviously  1.  When  re-starting  (i.e.,  continuing  in  a subsequent  run)  a 
nonlinear  analysis,  BEG-STEP  should  be  set  to  the  number  of  the  next  step  to  be  computed 
— not  to  the  number  of  the  last  step  computed.  The  solution  procedure  (NL_STATIC_l) 
will  automatically  use  any  previous  step(s)  required  to  continue  the  analysis  — providing 
the  necessary  steps  are  available  in  the  database.  Currently,  the  number  of  consecutive 
preceding  steps  required  for  a restart  is  three.  For  more  details,  refer  to  the  same  argument 
name  under  solution  procedure  NL-STATICL1. 

4.10.3.3  DBC 

Name  of  computational  database  file  (default=PEAR.DBC).  This  file  will  contain  all  model 
definition  data,  element  computational  data,  one  copy  of  the  assembled  and  factored  stiff- 
ness matrices,  the  buckling  eigensolution,  and  displacement  and  internal  force  vectors  for 
every  load  step  computed  during  the  analysis. 

4.10.3.4  DBR 

Name  of  results  database  file  ( default =PEAR.  DBR).  This  file  will  contain  one  dataset  called 
RESPONSE. HISTORY  generated  during  nonlinear  analysis.  The  dataset  will  contain  record 
groups  — indexed  by  load  step  number  — for  a number  of  solution  parameters,  including 
the  load  factor  and  maximum  axial  displacement  components.  This  database  is  valuable 
for  obtaining  load-displacement  plots,  and  for  evaluating  the  performance  of  the  nonlinear 
solution  strategy  employed. 

4.10.3.5  ES-NAHE 

Element  name  (default:  EX97).  This  is  the  name  of  the  specific  shell-element  type  you 
wish  to  select,  within  the  element  processor  defined  by  argument  ES-PROC.  The  default 
shell-element  type,  EX97,  is  a 9-node  quadrilateral  element  implemented  in  processor  ESI, 
and  described  in  The  Computational  Structured  Mechanics  Testbed  User’s  Manual  (see 
ref.  4.10-3). 

4.10.3.6  ESJPARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 
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4.10.3.7  ES.PR0C 

Element  processor  (default:  ESI)  This  is  the  name  of  the  structural  element  (ES)  processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  processor  ESI,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual  (see  ref.  4.10-3). 

4.10.3.8  LD_DIR 

Direction  in  which  to  total  the  load  (default:  3).  This  argument  specifies  the  direction  in 
which  the  reaction  forces  will  be  summed  in  order  to  determine  the  total  load  applied. 

4.10.3.0  LINEAR 

Linear  analysis  flag  (default:  <false>).  This  flag  should  be  turned  on  to  perform  only  a 
linear  static  analysis. 

4.10.3.10  MAX-CUTS 

Maximum  number  of  load  step  cuts  in  nonlinear  analysis  (default=3).  For  more  details, 
refer  to  the  same  argument  name  under  solution  procedure  NL-STATIC-1. 

4.10.3.11  MAX-LOAD 

Maximum  load  factor  in  nonlinear  analysis  (default=l . 0).  This  sets  an  upper  limit  for  the 
load  level,  which  can  be  a convenient  way  of  terminating  the  arc-length  controlled  solution 
algorithm  employed  within  procedure  NL-STATIC-1.  Since  the  load  factor  is  actually  an 
unknown  in  this  solution  procedure,  there  is  no  way  of  knowing  a-priori  how  many  load 
steps  will  be  required  to  attain  a particular  load  level.  Thus,  the  analysis  will  be  terminated 
when  either  MAX-LOAD  is  exceeded  or  NSTEPS  is  exceeded  — whichever  comes  first.  For  more 
details,  refer  to  the  same  argument  name  under  solution  procedure  NL-STATIC.l. 

4.10.3.12  NEL-ARC 

Number  of  elements  along  sire  segment  (default:  4).  This  argument  specifies  the  number 
of  elements  along  a 45°  arc  segment  of  the  shell. 

4.10.3.13  NELJDEPTH 

Number  of  elements  along  depth  of  shell  (default:  l).  This  argument  specifies  the  number 
of  elements  along  the  length  (or  depth)  of  the  shell. 

4.10.3.14  NEL-FLAT 

Number  of  elements  along  flat  segments  (default:  4).  This  argument  specifies  the  number 
of  elements  along  the  flat  segments  of  the  shell. 

4.10.3.15  NONLINEAR 

Nonlinear  analysis  flag  (default=<true>).  This  flag  should  be  turned  on  to  perform  non- 
linear analysis  in  the  current  run. 
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4.10.3.16  NSTEPS 

Maximum  number  of  load  steps  to  be  computed  in  the  current  nonlinear  analysis  run 
(default=30).  For  more  details,  refer  to  the  same  argument  name  under  solution  procedure 
NL.STATIC.1. 

4.10.3.17  POST 

Postprocessing  flag  (default=<f  alse>).  This  flag  should  be  turned  on  if  you  want  selected 
response- history  parameters  to  be  added  to  the  PEAR . DBR  database.  Note  that  it  is  not 
necessary  to  use  this  option  in  order  to  archive  the  basic  load-displacement  curve  and 
solution  parameters.  It  is  only  needed  if  you  wish  to  archive  special  displacement  and/or 
internal  force  component  response  histories  post-facto. 

4.10.3.18  STABILITY 

Stability  (buckling)  analysis  flag  (default  <true>).  This  flag  should  be  turned  on  if  you 
want  the  buckling  eigenvalue  analysis  to  be  performed  in  the  current  run.  Preprocessing 
is  a pre-requisite  for  this  option.  If  you  are  just  performing  a nonlinear  analysis  re-start 
run,  then  you  should  turn  this  flag  off. 


4.10.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  PEAR.CYL  may  be  used  by  preceding  the  procedure  name  by  the  ♦call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all  of 
the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 


♦call  PEAR.CYL  ( ES.PROC  = ESI 


ES.NAME  = 

EX97  ; — 

NEL.ARC 

4 ; — 

NEL.FLAT 

4 ; — 

HEL.DEPTH 

2 ; — 

LIHEAR 

= <true>  ; 

PREP 

= <true>  ; 

STABILITY 

= <false>  ; 

NONLINEAR 

= <false>  ; 

POST 

* <false>  ; 

DBC 

* PEAR. DBC 

DBR 

= PEAR. DBR 

NSTEPS 

= 30  ; — 

BEG.STEP 

* 1 ; --  . 

MAX.CUTS 

= 3 ; — . 

BEG.L0AD 

* .1  ; — . 

MAX.L0AD 

* 1 ; --  . 

LD.dir 

= 3 — . 

) 


. Element  Processor 
. Element  name 

. Elements  along  45  deg.  arc 
. Elements  along  flat  segment 
. Elements  through  depth  (z) 


Direction  of  total  load  calculation 
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(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  i.e., 


♦call  PEAR.CYL 

This  will  perform  linear  buckling  eigenvalue  analysis  and  30  steps  of  nonlinear  anal- 
ysis with  a 7x7  grid  of  ES1/EX97  shell  elements.  The  time  required  for  this  analysis 
is  machine-dependent.  Using  the  default  values  for  the  procedure  arguments,  the 
amount  of  CPU  times  required  for  a stability  analysis  and  a nonlinear  analysis  on 
various  computer  systems  are  shown  in  Table  4.10-2. 


Table  4.10-2  CPU  TIMES  Table 


Computer  System 

Total  CPU  Time,  sec. 

Stability 

Nonlinear 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

(E2)  Not  suppressing  the  drilling  rotational  freedoms  can  cause  strange  behavior  for  some 
elements  during  nonlinear  analysis.  On  the  other  hand,  suppressing  these  free- 
doms explicitly  using  the  DRILLING_DOF  argument  may  cause  some  over-stiffening 
for  coarse  meshes  with  some  elements.  It  is  probably  best  to  suppress  the  drilling 
freedoms  explicitly  unless  the  element  actually  has  intrinsic  drilling  stiffness. 


4.10.5  LIMITATIONS 

None. 

4.10.6  ERROR  MESSAGES  AND  WARNINGS 
None. 
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4.10.7  PROCEDURE  FLOWCHART 

PEAR.CYL 

(main  procedure) 

PEARJtODEL 

(define  model) 

ES 

(define  elements) 

PEAR.C0N 

(define  boundary  conditions) 

MATDAT 

(define  material  properties) 

DEF-ELTS4 

(define  4-node  models) 

DEF.ELTS9 

(define  9-node  models) 

PEARJLD 

(define  applied  displacements) 

L-STATIC 

(linear  static  analysis  procedure) 

T0TAL_L0AD 

(sum  reaction  forces  to  get  total  load) 

L-STABIL-2 

(linear  stability  analysis  procedure) 

TOTAL-LOAD 

(sum  reaction  forces  to  get  total  load) 

NL_STATIC_1 

(nonlinear  static  analysis  procedure) 

HISTORY 

(archive  historical  data) 

TOTAL-LOAD 

(sum  reaction  forces  to  get  total  load) 

4.10.8  PROCEDURE  LISTING 

4.10.8.1  UNIX  Script 

pear.cyl . com 

cd  $SCR/$USEA 

cp  tCSM.PRC /proclib.gal  proclib.gal 
chmod  u+w  proclib.gal 
ra  PEAR.* 

time  testbed  «\endinput 
♦set  acho  off 
♦set  plib  28 

♦open  28  proclib.gal  /old 
♦add  9 $CSM_APP/pear_cyl/pear..cyl . clp  * 
•def/i  es.proj  » 1 
♦daf/i  es.coro  * 1 
♦daf/i  nl.geom  3 2 
♦daf/a  solver.name  =BAND 
♦daf/a  nl.solver  *BAND 

•call  PEAA.CTL  ( ES-PR0C  = ESI 
ES.NANE 

; — . Element  Processor 
= EX97  ; — . Element  name 
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•andif 


nal.a  * [NEL.arc]  ; — 

nal.f  * [NEL.flat];  -- 

nal.z  « [NEL.dapth]  ) 


•if  < [LINEAR]  >/than 

•call  L.STATIC 

•call  TOTAL.LOAD  ( EQ0IL_CK»  0 ; — 

NSTEPS  * 0 5 — 

LOAD.SET  * 1 ; — 

CONS.SET  « 1 ; — 

NANE1  • »STAT*  ; — 

NAHE2  S »REAC>  ; — 

FAC  a 1.0  ; -- 

LD.DIR  a [Ld.dir]  — 

) 

•alsaif  < [STABILITY]  > /than 

•call  L.STABIL.2  (function= ’ all ’ ;n_aoda»=2 ; print =<true> ; str«ii=<trua>  ; 
cona.aatal ; bcon.aatal  ) 

•call  TOTAL.LOAD  ( EQOIL.CK*  0 ; — 

NSTEPS  • 0 ; — 

LOAO.SET  a 1 ; — 

CONS.SET  • 1 ; — 

NANE1  a »STAT*  ; — 

NAHE2  a »REAC’  ; — 

FAC  a 1.0  ; — 

LD.DIR  a [Ld.dir]  — 

) 

•andif 

•open/ nau  3,  [DBr] 


•if  < [NONLINEAR]  > /than 

•daf/i  na.ovarwrita  ==  <trua> 

•call  NL.STATIC.l  ( NL.6E0N  a <nl_gaoa>  ; — 
C0R0TATI0Na<aa_coro>  ; — 

NEWTON  a [NEWTON]  ; — 

BEG.STEP  a [BE6.STEP]  ; — 

HAZ.STEPS  a [NSTEPS]  ; -- 

BEG.LOAD  a [BEG.LOAD]  ; — 

NAX.LOAD  a [NAI.LOAD]  ; — 

NAZ.CUTS  a [NAX.COTS]  ; — 

NOHINAL.DB  a [DBr]  ; — 

NONINAL.DS  a [ES.PROC] . [ES.NANE] .1.1  ; — 
N. SELECT  a 2 ; — 
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SEL.NODES  * l,«nntotal>-<nnod.z>+l>  ; — 
SEL.DOFS  *1,1 

) 

♦toe  1 
♦andif 

♦if  < [POST]  /gt  0 > /than 
•opan  1 , [DBc] 

♦open  3 , [DBr] 

♦if  < [POST]  /aq  1 > /than 

♦call  HISTORY  ( input .ds  * TOT.DISP;  output. ldi  * 1 

output .da*  [ES.PROC] . [ES.NAHE] .1.1  ; 

output _rn=  RADIAL. DISP  ; LOCATION  = NODES 
nun.staps  = [NSTEPS]  ; 

•taps  * [BEG.STEP] : < [BEG.STEP]  + [NSTEPS] -1>  ; 
nun.nodes*  1 

nodas  = «nntotal>-<iuiod_z>+l> 
component  = 1 

) 

♦call  TOTAL. LOAD  ( EQDIL.CK*  0 

NSTEPS  = [NSTEPS] 

LOAD. SET  = 0 
CONS. SET  = 0 
NAHE1  * ’REAC’ 

NAME2  = ’FORC’ 

FAC  =1.0 
LD.DIR  = [Ld.dir] 

) 

•print  3 1 TOTAL*  /out=0 

♦print  3 1 DISP.U.«nntotal>-<nnod.z>+l>*  /out=0 

♦andif 
♦andif 


♦and 


♦procadura  PEAR.MODEL  ( ES.proc  = ESI  ; — 

ES.nana  = EI07  ; — 
nal.a  =4  ; - 
nal.f  =4  ; - 
nal.z  =2  ) 


Initial iza  alaaant  macros 


•call  ES  ( function  = ’DEFINE  ELEMENTS’  ; at.proc  = [ES.PROC]; 

•a.naaa  = [ES.NiHE]  ) 


Sat  diaansions  and  nunbar-of -nodes  macros: 
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adef/g  dz 
*def/g  r 
adef/g  sq2  » 
adef/g  rs2  = 
adef/g  rd2  = 
adef/g  rr2  » 
adef/g  m s 
*def/g  rr2*  = 
*def/g  rd2m  = 
adef/g  rs2n  * 
*def/i  nel_b 


==  0.40 
*=1.0 
a (2 .0*0 . B) 

= < <r>  * <sq2> 
a < <r>/<sq2>  > 
» < <r>  ♦ <rd2> 
* < -<r>  > 

< -<rr2>  > 

< -<rd2>  > 

< -<rs2>  > 

i <[nel_f]aif 


Depth  (in  z direction)  of  cylinder 
Radius  of  curved  portions  of  cylinder 


adef/i  nnod.z  > 
adef/i  nnod.a  « 
*def/i  nnod.f  a 
*def/i  nnod.b  * 
adef/i  nnod_c  * 
aelseif  < <es.nen> 


<es_nen>  /eq  4 > /then 

* < [nel_z]  ♦ 1 > 

« < [nel.a]  ♦ 1 > 
a < [nel.f]  ♦ 1 > 

* < <nelja>  ♦ 1 > 

= <4*[nel_a]*[nel_f]+<nel_b>  ♦ 1 > 
/eq  0 > /then 


adef/i  nnod.z  =*  < 2*[nel„z] 
adef/i  nnod.a  **  < 2a [nel.a] 
adef/i  nnod.f  ==  < 2*[nel.f] 
adef/i  nnod.b 
adef/i  nnod.c 
a end if 

adef/i  nnod_3a  * 

*def/i  bsegl  * 
adef/i  bseg2  = 
adef/i  bseg3  = 

*def/i  bseg4  = 
adef/i  nntotal  *» 


♦ 1 > 

♦ 1 > 

♦ 1 > 

< 2*<nel_b>  ♦ 1 > 

< 2*<4*  [nel.a]  ♦[nel_f]+<nel.b» 


< 3*<  <nnod_a>  - 1 > ♦ 1 > 

1 

< <bsegl>  ♦ «nnod.a>  -l>*<nnod_z> 

< <bseg2>  ♦ <<nnod.f>  -l>*<nnod_z> 

< <bseg3>  ♦ <<nnod.3a>-l>a<nnod.z> 

< <nnod_c>a<nnod_z>  > 


♦ 1 > 


Through  z 
Along  arc 

Along  flat  segment 
Along  botton  segment 
Circumf  er ent ially 

Through  z 
Along  arc 

Along  flat  segment 
Along  bottom  segment 
Circumf erent ially 

Around  13S  deg.  arc 
Start  segment  1 
Start  segment  2 
Start  segment  3 
Start  segment  4 
Total  number  of  nodes 


[xqt  TAB 

START  <nntotal> 


Define  alternate  reference  frames  to  be  used  in  setting  up  joint  locations: 


ALTERNATE  REFERENCE  FRAMES 


4 

1,0. 

2,0. 

3,0. 

0.0 

<m> 

0.0 

6 

i.o. 

2,0. 

3,0. 

<rd2m> 

<rr2m> 

0.0 

6 

1,0. 

2,0. 

3,0. 

0.0 

<rr2m> 

0.0 

7 

1,0. 

2,0. 

3,13S. 

8 

1,0. 

2,0. 

3,270. 

Define  joint  locations: 


JOINT  LOCATIONS 
NREF  =4  . 90  to 

FORMAT  » 2 

<bsegl>  <r>  90.0  0.0 

1 <r>  90.0  0.4 


135  degree  arc 

<r>  135.0  0.0  <nnod.a>  <nnod_z>  <nnod_z> 

<r>  136.0  0.4 
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FORMAT  * 

i 

• 

Flat 

sagaant 

<bsag2> 

<rd2n> 

<rd2> 

0.0 

<rs2n> 

0.0 

0.0 

<nnod.f> 

<nnod.z> 

<nnod.z> 

1 

<rd2m> 

<rd2> 

0.4 

<rs2a> 

0.0 

0.4 

NREF  = B 

• 

135  dagraa  arc 

FORMAT  = 

2 

<bsag3> 

<r> 

136.0 

0.0 

<r> 

270.0 

0.0 

<nnod.3a> 

<nnod.z> 

<nnod.z> 

1 

<r> 

135.0 

0.4 

<r> 

270.0 

0.4 

NREF  • 9 

. 

Bottom  flat  sagaant 

FORMAT  = 

1 

<bsag4> 

<rd2a> 

<rm> 

0.0 

0.0 

<ra> 

0.0 

<nnod_b> 

<nnod_z> 

<nnod.z> 

1 

<rd2n> 

<ra> 

0.4 

0.0 

<ra> 

0.4 

Assign  Joint  Raferanca  Fraaes: 


JOINT  REFERENCE  FRAME  ASSIGNMENTS 


NREF  * 

-4: 

<bsegl>,  «bsag2>  - 1> 

NREF  « 

7: 

<bsag2> , «bsag3>  - 1> 

NREF  » 

-5: 

<bsag3> , «bsag4>  - 1> 

NREF  » 

8: 

<bsag4> , <nntotal> 

Constraint  Definitions: 


•call  PEAR.CON  ( nnod.z  = <nnod.z>  ; nntotal  = <nntotal>  ) 


Matarial  Properties: 


♦call  MATDAT 


♦if 


Elamant  Definitions: 


< <es.nen>  /aq  4 > /then 
♦call  DEF.ELTS4  ( 


♦alsa 

♦call  DEF.ELTS9 


ES.naaa  = 

[ES.naaa] 

nal_a  = 

[nal.a] 

nal.f  = 

[nal.f] 

nal_z  * 

[nal.z] 

nel.b  = 

<nal.b> 

ES.naaa  = 

[ES.naaa] 

nal.a  = 

[nal.a] 

nel.f  = 

[nal.f] 

nal.z  = 

[nal.z] 

nal_b  = 

<nal.b> 

•end if 
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Applied  Loading: 


•call  PEAR.AD  ( nnod.z  * <nnod.z>  ; nntotal  = <nntotal>  ) 

•and 

•procedure  PEAR.CQN  ( nnod.z  ; nntotal  ) 

CONSTRAINT  DEFINITION  1 . Buckling;  siaply  supported 

syna  plane=l  • Plane  2,3  plane  of  syaaetry 

symn  plane =3  . Plane  1,2  plane  of  syaaetry 

nonzero  3 : [nnod.z]  , [nntotal]  , [nnod.z]  . Apply  displaceaent  at  z=dz 
zero  1,2,6:  [nnod.z] , [nntotal] , [nnod.z]  . Edge  z=dz  siaply  supported 
•if  <if eqs(<es.naae>;E410)>  /then 

•Aeaark  E410  drilling  freedoms  ON 
•else 

zero  4 : 1,  [nntotal],  1 . Constrain  in-plane  rotations 

•endif 

•end 

•procedure  DEF.ELTS4  ( ES.naae  ; — 

nel.a  ; — 

nel.f  ; — 

nel.z  ; — 

nel.b  ) 

•def/i  nel.circua  « <4* [nel.a]  ♦ [nel.f]  ♦ [nel.b] > 

*def/i  jinc  « < [nel.z] *1> 

•def/i  jl  * 1 
•def/i  j2  x 2 

•def/i  j3  * «j2>  ♦ <jinc» 

•def/i  j4  * «jl>  ♦ <jinc» 

[zqt  ELD 

<es.expe.cad> 

<jl>  <j2>  <j3>  <j4>  1 [nel.z]  <nel.circua> 

stop 


•end 

•procedure  DEF.ELTS9  ( ES.naae  ; — 

nel.a  ; — 

nel.f  ; — 

nel.z  ; — 

nel.b  ) 

•def/i  nel.circua  * <4*  [nel.a]  ♦ [nel.f]  ♦ [nel.b]  > 
•def/i  jinc  * <2*[nel.z]+l> 

•def/i  jl  = 1 
•def/i  j2  * «jl>+2> 
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*d«l/i  j3  « «j2>  ♦ 
*d«f/i  j4  » «jl>  ♦ 
•d«f/i  jB  » «jl>  ♦ 
*d«f/i  j«  « «j2>  ♦ 
*d*f/i  j7  ■ «j6>  ♦ 
*d«f/i  j8  * «jl>  ♦ 
•d«l/i  j9  * «j6>  + 


2*<jinc» 

2*<jinc» 

1> 

<jinc» 

2*<jinc» 

<jinc» 

<jinc» 


[xqt  ELD 

<as.axpa_cnd> 


<jl>  <j2>  <j3>  <j4>  <j6>  <jfl>  <j7>  <j8>  <j9>  1 [nal.z]  <nel.circun> 


stop 


•and 

aprocadura  MATDAT 
[xqt  AUS 

ad ai  g = 3.84615a+6 

adaf/g  t ■*  0.01 


. Ell  NU12  E22  G12  G13  G23  ALPHA 1 ALPHA2  VTDEN 

TABLE(NI=16 ,NJ=1 ) : 0MB  DATA  1 1 
1*1 » 2,3 *4,6 ,6 ,7 ,8,0 

Jsl;  10.0E+6  .30  10.0E+6  <g>  <g>  <g>  0.0  0.0  .1 

TABLE  (NI=3 ,NJ=1 , itypa=0) : LAM  0MB  1 1 

J=1  : 1 <t>  0.00 

[xqt  lau 
•and 

aprccadura  PEAR. AD  ( nnod.z  ; nntotal  ) 

[xqt  AUS 

sysvac  : appl  aoti 

1=3  : j= [nnod.z] , [nntotal] , [nnod.z]  : -2.E-5 

a and 
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4.11  Procedure  PINCHED_CYL 


4.11.1  GENERAL  DESCRIPTION 


The  pinched  cylinder  - a circular  cylindrical  shell  subjected  to  two  equal  and  opposite  radial 
forces  at  0 and  180  degrees  along  its  mid-span  circumference  - is  a classical  problem  that 
has  been  used  extensively  to  check  the  ability  of  shell  elements  to  represent  inextensional 
bending  deformation.  Two  versions  of  the  problem  axe  considered  here:  (i)  with  open 
ends,  and  (ii)  with  a rigid  membrane  diaphragm  on  each  end  to  prevent  cross-sectioned 
distortion.  The  open-ended  version  leads  to  pure  inextensional  deformation  (i.e.,  zero 
membrane  strains)  in  the  limit  as  the  shell  thickness  to  shell  radius  ratio  h/R  approaches 
zero.  An  exact  solution  for  this  limiting  case  may  be  found  in  reference  4.11-1.  The  pinched 
cylinder  with  closed  ends  does  not  exhibit  pure  inextensional  deformation,  but  rather  a 
complex  combination  of  bending  and  membrane  effects  with  a bending  boundary  layer  in 
the  immediate  vicinity  of  the  concentrated  loads.  A series  solution  for  this  latter  case  may 
be  found  in  reference  4.11-2. 

This  section  describes  a procedure  that  solves  another  classical  problem  which  is  one  of 
the  MacNeal-Harder  test  cases.  Two  versions  of  this  circular  cylindrical  shell  subjected  to 
equal  and  opposite  radial  forces  at  its  mid-span  circumference  are  provided:  (i)  with  open 
ends  and  (ii)  with  a rigid  membrane  diaphragm  on  each  end.  The  L/2  by  90-degree  model 
used  in  each  case  is  shown  in  figure  4.11-1. 


Figure  4.11-1  Pinched  Cylinder  Problem. 
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4.11.1.1  Model  Description 

4.11.1.2  Analysis  Description 

4.11.1.3  Available  Solutions 


4.11.2  PROCEDURE  USAGE 


Procedure  PINCHED_CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive, and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 


♦call  PINCHED_CYL  ( argl  = vail  ; arg2  = val2  ; ...) 


where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 


The  allowable  arguments  for  procedure  PINCHED.CYL  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES_PR0C 

ESI 

Element  processor 

ESJIAME 

EX97 

Element  name 

ES.PARS 

0. 

Element  research  parameters 

NN0DES_A 

5 

Number  of  axial  nodes 

NNODES.C 

5 

Number  of  circumferential  nodes 

AUT0_D0F_SUP 

<true> 

Automatic  degrees  of  freedom  suppression 

DRILLING_D0F 

<false> 

Drilling  (normal  rotational)  freedoms 

DBC 

PC. DBC 

Computational  database  name 

DBR 

PC. DBR 

Results  database  name 

PREP 

<true> 

Perform  preprocessing  (model  generation) 

LINEAR 

<true> 

Perform  linear  static  analysis 

REACTION 

<false> 

Calculate  internal  forces  or  reactions 

POST 

<true> 

Perform  postprocessing  (selected  data  archival) 
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4.11.8  ARGUMENT  DESCRIPTIONS 

4.11.3.1  APT0-D0F.SUP 

Automatic  degree  of  freedom  suppression  flag  (default:  <true>).  This  option  provides  a 
convenient  way  of  suppressing  any  freedoms  that  do  not  have  any  (or  adequate)  stiffness 
associated  with  them  — for  example,  at  nodes  used  to  prescribe  geometry  only;  or  drilling 
freedoms  in  fine  meshes  composed  of  elements  without  normal  rotational  stiffnesses  (see 
argument  DRILLINGJ)OF). 

4.11.3.2  DBC 

Name  of  computational  database  file  (default=PC.DBC).  This  file  will  contain  all  model 
definition  data,  element  computational  data,  one  copy  of  the  assembled  and  factored  stiff- 
ness matrices,  the  buckling  eigensolution,  and  displacement  and  internal  force  vectors  for 
every  load  step  computed  during  the  analysis. 

4.11.3.3  DBR 

Name  of  results  database  file  (default=PC.DBR).  This  file  will  contain  one  dataset  called 
RESPONSE. HISTORY  generated  during  nonlinear  analysis.  The  dataset  will  contain  record 
groups  — indexed  by  load  step  number  — for  a number  of  solution  parameters,  including 
the  load  factor  and  maximum  axial  displacement  components.  This  database  is  valuable 
for  obtaining  load-displacement  plots,  and  for  evaluating  the  performance  of  the  nonlinear 
solution  strategy  employed. 

4.11.3.4  DRILLING-DOF 

Drilling  degree  of  freedom  flag  (default:  <false>).  Drilling  freedoms  are  defined  as  rota- 
tions normal  to  the  surface  of  the  shell.  Leaving  this  flag  off  forces  all  drilling  freedoms 
in  the  model  to  be  suppressed.  Turning  it  on  forces  all  drilling  freedoms  to  be  active  — 
unless  they  are  automatically  suppressed  using  use  of  the  AUTOJDOFJSUP  argument.  Note 
that  while  many  shell  elements  do  not  have  any  rotational  stiffness  associated  with  their 
own  surface-normal  directions  (at  nodes),  when  shell  elements  are  assembled  as  facets  ap- 
proximating an  arbitrary  shell  surface,  there  is  usually  some  misalignment  between  the 
element  normal  and  the  actual  shell  normal.  This  is  especially  true  of  “flat”  (e.g.,  4-node) 
elements.  Hence,  some  rotational  stiffness  about  the  shell  normal  is  usually  present  in 
the  model.  (A  clear  exception  to  this  is  a flat  plate,  where  element  and  shell  normals 
are  identical.)  For  a cylindrical  shell,  the  misalignment  diminishes  only  as  the  number  of 
elements  is  increased.  Most  shell  elements  in  the  Testbed  have  their  own  misalignment 
tolerance  parameter,  which  determines  when  the  AUTO -DOF-SUP  argument  will  automati- 
cally suppress  the  drilling  freedom.  Note  that  for  elements  which  have  drilling  stiffness, 
the  DRILLING_DOF  argument  should  be  set  to  <true>  regardless  of  how  AUT0_D0F_SUP  is 
set. 
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4.11.3.5  ESJAME 

Element  name  (default:  EZ97).  This  argument  is  the  name  of  the  specific  shell-element  type 
you  wish  to  select,  within  the  element  processor  defined  by  argument  ES_PR0C.  The  default 
shell-element  type,  EZ97,  is  a 9-noded  quadrilateral  element  implemented  in  processor  ESI, 
and  described  in  The  Computational  Structural  Mechanics  Testbed  User’s  Manual  (see  ref. 
2.1-1). 


4.11.3.6  ES_PARS 

Element  research  parameters  (default:  0.,  ...).  This  argument  allows  is  an  optional  list 
of  element-dependent  parameters  that  some  elements  provide,  primarily  when  the  element 
is  still  undergoing  research  and  refinement. 

4.11.3.7  ES-PROC 

Element  processor  (default:  ESI)  This  argument  is  the  name  of  the  structural  element 
(ES)  processor  that  contains  the  shell  element  type  you  wish  to  employ  in  the  model. 
The  default  shell-element,  Processor  ESI,  is  described  in  The  Computational  Structural 
Mechanics  Testbed  User’s  Manual. 

4.11.3.8  LINEAR 

Linear  stress  analysis  flag  (default:  <true>). 

4.11.3.9  NNODES-A 

Number  of  axial  nodes  (default:  7).  This  argument  is  the  number  of  nodes  you  wish 
to  have  along  the  axial  direction  of  the  cylindrical  shell  model,  i.e.,  along  one-tenth  of 
the  full  cylinder’s  length.  Note  that  this  number  should  be  consistent  with  the  number 
of  nodes  per  element.  For  example,  NN0DES.A  can  be  any  number  greater  than  1 for  4- 
node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for  9-node 
quadrilateral  elements. 

4.11.3.10  NN0DES_C 

Number  of  circumferential  nodes  (default:  7).  This  argument  is  the  number  of  nodes  you 
wish  to  have  along  the  circumferential  direction  of  the  cylindrical  shell  model,  i.e.,  along 
15  degrees  of  circular  arclength.  Note  that  this  number  should  be  consistent  with  the 
number  of  nodes  per  element.  For  example,  NNODES-C  can  be  any  number  greater  than  1 
for  4-node  quadrilateral  elements,  whereas  it  must  be  an  odd  number  greater  than  1 for 
9-node  quadrilateral  elements. 

4.11.3.11  POST 

Postprocessing  flag  (default=<f  alse>).  This  flag  should  be  turned  on  if  you  want  selected 
response-history  parameters  to  be  added  to  the  CC.D6R  database.  Note  that  it  is  not 
necessary  to  use  this  option  in  order  to  archive  the  basic  load-displacement  curve  and 
solution  parameters.  It  is  only  needed  if  you  wish  to  archive  special  displacement  and/or 
internal  force  component  response  histories  post-facto. 
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4.11.3.12  PREP 

Pre-processing  flag  (default=<true>).  This  flag  must  be  turned  on  the  first  time  procedure 
PINCHED.CYL  is  run,  as  it  causes  the  model  to  be  generated.  If  subsequent  runs  are  used 
to  perform  other  stages  of  the  analysis  ( e.g .,  nonlinear  restarts),  then  PREP  must  be  set  to 
<f  alse>  for  those  subsequent  runs. 


4.11.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  PIHCHED-CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive.  Procedure  arguments  may  be  changed  from  their  default  values  by  including 
any  or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or 
blank  is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦call  PINCHED.CYL  ( ES.PROC  = ESI  ; ES.NAME  = EX97  ; — 


NNODES.A 

SS 

7 ; NNODES-C 

= 7 

• 

1 

SPEC_DIS 

s 

<false>  ; — 

DRILLING. 

DOF 

= <false>  ; — 

AUTO-DOF. 

SUP 

= <true>  ; — 

PREP 

= 

<true>  ; — 

STABILITY  = 

<true>  ; — 

IMPERFECTION 

* <true>  ; — 

LINEAR  * 

<true>  ; — 

POST 

s 

<true>  ; — 

BEG.STEP 

= 

1 ; — 

NSTEPS 

s 

10  ; — 

BEG.LOAD 

s 

.1  ; — 

MAX_L0AD 

s 

3.0  ; — 

DBc 

* 

PC. DBc  ; DBr  * 

PC. DBr 

) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  t.e., 

♦call  PIHCHED.CYL 


This  will  perform  linear  buckling  eigenvalue  analysis  and  10  steps  of  nonlinear  anal- 
ysis with  a 7x7  grid  of  ES1/EX97  shell  elements.  The  time  required  for  this  analysis 
is  machine-dependent.  Using  the  default  values  for  the  procedure  arguments,  the 
amount  of  CPU  time  required  for  this  analysis  on  various  computer  systems  is  shown 
in  Table  4.11-1. 


Table  4.11-1  CPU  TIMES  Table 
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Computer  System 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

(E2)  Not  suppressing  the  drilling  rotational  freedoms  can  cause  strange  behavior  for  some 
elements  during  nonlinear  analysis.  On  the  other  hand,  suppressing  these  free- 
doms explicitly  using  the  DRILLING-DOF  argument  may  cause  some  over-stiffening 
for  coarse  meshes  with  some  elements.  It  is  probably  best  to  suppress  the  drilling 
freedoms  explicitly  unless  the  element  actually  has  intrinsic  drilling  stiffness. 


4.11.5  LIMITATIONS 


4.11.0  ERROR  MESSAGES  AND  WARNINGS 

None. 

4.11.7  PROCEDURE  FLOWCHART 


PINCHED-CYL 
GEN-SHELL 
PC.BC 
PDC-BC 
L -STATIC-1 
POST 


(main  procedure) 

(generate  model) 

(generate  boundary  conditions/loads) 


(perform  linear  static  analysis) 
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4.11.8  PROCEDURE  LISTING 
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4.12  Procedure  PWHOLE 

4.12.1  GENERAL  DESCRIPTION 

4.12.1.1  Problem  Description 

This  application  problem  involves  a linear  static  stress  analysis  of  a thin  isotropic  mem- 
brane with  a central  circular  hole  subjected  to  uniform  compression  (see  Figure  4.12-1). 
This  problem  is  important  in  that  plate  and  shell  elements  are  frequently  used  to  model 
regions  with  a severe  stress  gradient. 


Y 


Length  = 20.  inches  Plate  thickness  = .1  inches 

Width  = 10.  inches  E = 10.  x106psi 

Diameter  of  hole  = 2.  inches  v = .3 

Uniform  end-shortening,  u<j*.1  inches 


Figure  4.12-1  Plate  with  Circular  Hole 
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4.12.1.2  Model  Description 

Procedure  PWHOLE  models  an  entire  rectangular  membrane  using  2-D  quadrilateral  ele- 
ments. The  mesh  is  generated  using  processor  CSM1.  This  processor  generates  a file  named 
PANEL . PRC  which  is  added  to  the  procedure  library.  This  file  contains  various  procedures 
associated  with  model  generation  (PANELJBC),  and  applied  displacements  (PANEL_AD). 

4.12.1.3  Analysis  Description 

Procedure  PWHOLE  performs  a single  linear  static  stress  analysis.  The  solution  procedure 
L -STATIC  described  in  Chapter  3 is  used  to  perform  the  static  stress. 

4.12.1.4  Available  Solutions 


4.12.2  PROCEDURE  USAGE 

Procedure  PWHOLE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  PWHOLE  ( argl  = vail  ; arg2  = val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  PWHOLE  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES_PR0C 

ESI 

Element  processor 

ES.NAME 

EX47 

Element  name 

ES.PAR 

0.0 

Element  research  parameters 

NRINGS 

4 

Number  of  rings  of  elements 

NSPOKES 

16 

Number  of  radial  spokes  of  nodes 

NELX 

6 

Number  of  elements  along  ^-direction 

NELE 

2 

Number  of  elements  across  edge 

NELBS 

2 

Number  of  elements  between  interior  stiffeners 

PRINT 

<false> 

Print  flag 

DIRECTION 

1 

Direction  of  stress  reference  frame 

LOCATION 

’NODES* 

Location  for  stress  recovery 

4.12-  2 


CSM  Testbed  Procedures  Manual 


Revised  5/23/90 


Application  Procedures 


Plate  With  Circular  Hole 


4.12.3  ARGUMENT  DESCRIPTIONS 

4.12.3.1  DIRECTION 

Direction  for  the  element. stress  (stress  resultant)  output  (default:  1).  The  element  stress 
coordinate  system  will  be  used  if  DIRECTIONS.  The  material  axes  (*m,  t/m,  zm)  will  be 
used  if  DIRECTI0N«1;  the  material  axes  (ym,  zm,  xm)  will  be  used  for  DIRECTI0N=2;  and 
the  material  axes  (zm,  xm,  ym)  will  be  used  for  DIRECTI0N*3.  For  isotropic  materials,  the 
first  material  axis  is  replaced  by  the  corresponding  global  axis  (see  Section  4. 3.3.9  of  the 
CSM  Testbed  User’s  Manual,  ref.  4.12-3). 

4.12.3.2  ES-NAME 

Element  name  (default:  EX47).  This  argument  specifies  the  name  of  the  specific  shell- 
element  type  to  select  within  the  element  processor  defined  by  argument  ES_PR0C.  The 
default  shell-element  type,  EX47,  is  a 4- node  quadrilateral  element  implemented  in  proces- 
sor ESI,  and  described  in  the  Computational  Structural  Mechanics  Testbed  User’s  Manual 
(see  ref.  4.12-2). 

4.12.3.3  ES-PARS 

Element  research  parameters  (default:  0.0,  . . .).  This  array  allows  an  optional  list  of 
element-dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is 
still  undergoing  research  and  refinement. 

4.12.3.4  ES-PROC 

Element  processor  (default:  ESI)  This  is  the  name  of  the  structural  element  (ES)  processor 
that  contains  the  shell-element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  processor  ESI,  is  described  in  the  Computational  Structural  Mechanics  Testbed 
User’s  Manual  (see  refs.  4.12-2). 

4.12.3.5  LOCATION 

Location  of  the  evaluation  points  for  the  element  stresses  or  stress  resultants  (default: 
NODES).  The  element  stresses  or  stress  resultants  are  optionally  computed  by  calling  proce- 
dure STRESS  (see  Section  6.4).  This  argument  may  have  four  values.  For 
L0CATI0N=INTEG_PTS,  the  element  stresses  are  computed  at  the  element  integration  points. 
For  L0CATI0N=CENTR0IDS,  the  element  stresses  are  computed  at  the  element  centroid.  For 
L0CATI0N=N0DES,  the  element  stresses  are  extrapolated  from  the  integration  points  to  be 
element  nodes.  These  element  nodal  stresses  will  be  discontinuous  across  interelement 
boundaries. 

4.12.3.6  NELBS 

Number  of  elements  between  interior  stiffness  (default:  2).  Refer  to  processor  CSM1  in 
reference  4.12-3  for  a discussion  of  this  argument. 
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4.12.3.7  HELE 

Number  of  elements  across  edge  (default:  2).  Refer  to  processor  CSM1  in  reference  4.12-3 
for  a discussion  of  this  argument. 

4.12.3.8  NELX 

Number  of  elements  along  i-direction  (default:  6).  Refer  to  processor  CSM1  in  reference 
4.12-3  for  a discussion  of  this  argument. 

4.12.3.0  WRINGS 

Number  of  rings  of  elements  (default:  4).  This  argument  specifies  the  number  of  rings  of 
elements,  either  4-node  or  9-node  quadrilateral  elements,  around  the  hole. 

4.12.3.10  MSPOKES 

Number  of  radial  spokes  of  nodes  (default:  16).  This  argument  specifies  the  number  of 
radial  spokes  of  nodes  which  must  be  a multiple  of  8. 

4.12.3.11  PRINT 

Print  flag  (default:  <false>).  If  the  argument  PRINT  is  defined  to  be  <true>,  then  all 
computed  results  (displacements,  stresses)  will  be  printed. 


4.12.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  PWHOLE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦call 


PWHOLE  ( ES_PR0C  = 


ES.PAR  =0.0 

— 

NRINGS  = 4 

— 

NSPOKES  = 16 

— 

NELX  = 6 

— 

NELE  = 2 

— 

NELBS  = 2 

— 

DIRECTION  = 1 

— 

LOCATION  - ’NODES’ 

ESI  ; — . ES.NAME  = EX47  ; — . 

. Element  research  parameters 
. Number  of  rings  of  elements 

Number  of  radial  spokes  of  nodes 
. Number  of  elements  along  i-direction 
. Number  of  elements  across  edge 
. Number  of  elements  between  interior  stiffeners 
Direction  of  stress  reference  frame 
— . Location  for  stress  recovery 


) 


(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  that  is, 

♦call  PWHOLE 


Using  the  default  values  for  the  procedure  arguments,  the  amount  of  CPU  time 
required  for  this  analysis  on  various  computer  systems  is  shown  in  Table  4.12-1. 
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Table  4.12-1  CPU  TIMES  Table 


Computer  System 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 

4.12.5  LIMITATIONS 
None 

4.12.0  ERROR  MESSAGES  AND  WARNINGS 
None. 

4.12.7  PROCEDURE  FLOWCHART 


DLE 

(main  procedure) 

ES 

(define  elements) 

PANEL-START 

(define  start  card) 

PANEL-JLOC 

(define  joint  locations) 

PANEL-BC 

(define  boundary  conditions) 

MATDAT 

(define  material  properties) 

PANEL-CONN 

(define  element  connectivity) 

ES 

(define  freedoms) 

PANEL  JLD 

(define  applied  displacements) 

L-STATIC 

(linear  static  solution  procedure) 
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4.13  Procedure  RECTJLATE 


4.13.1  GENERAL  DESCRIPTION 


This  application  problem  involves  linear  static  stress  analysis,  linear  buckling  analysis  and 
linear  vibration  analysis  of  three  thin  isotropic  rectangular  plates  simply  supported  along 
their  edges  (see  Figure  4.13-1).  Various  loading  cases  are  considered  including  uniaxial 
and  biaxial  compression,  uniform  inplane  shear,  and  inplane  bending  (see  Figure  4.13-2). 


(a)  Quarter  Model  of  Plate  1. 


CK  9 

b ^ lojin. 


o 


(k?  IS  «'*. 
b - io.o  ;a 


(c)  Full  Model  of  Plate  3. 

Figure  4.13-1  Rectangular  Plate  Problems. 


Revised  5/23/90 


CSM  Testbed  Procedures  Manual 


4.13- 1 


RECT-PLATE 


Application  Procedures 


y 


(Half  Model  of  Plate  2) 


(b)  Biaxial  Compression 

(Quarter  Model  of  Plate  1) 


X 

Inplane  Shear 

(Pull  Model  of  Plate  3) 


Figure  4.13-2  Loading  Conditions. 


4.13.1.1  Model  Description 

Procedure  RECT-PLATE  uses  a quarter  model,  a half  model,  and  a full  model  of  a plate 
depending  on  the  loading  case.  The  mesh  topology  is  rectangular  and  restricted  to  quadri- 
lateral shell  elements  with  4-nodes.  For  the  quarter  model  shown  in  Figure  4.13-la,  two 
edges  are  simply  supported  and  two  edges  have  symmetry  conditions  imposed.  For  the  half 
model  shown  in  Figure  4.13-lb,  three  edges  are  simply  supported  and  symmetry  conditions 
are  imposed  on  the  remaining  edge.  For  the  full  model  shown  in  Figure  4.13-lc,  all  four 
edges  are  simply  supported. 

4.13.1.2  Analysis  Description 

Procedure  RECT-PLATE  performs  six  different  analyses  through  successive  procedure  calls 
using  the  various  solution  procedures  described  in  Chapter  3.  The  analyses  performed  are. 

• Linear  free  vibration  analysis  about  an  unstressed  state; 

• Linear  buckling  analysis  using  a linearly- computed  prestress  state  for  uniform  uniaxial 
compression; 
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• Linear  buckling  analysis  using  a prescribed  prestress  state  for  uniform  biaxial  com- 
pression; 

• Linear  free  vibration  analysis  about  a prescribed  prestressed  state  for  uniform  biaxial 
tension; 

• Linear  buckling  analysis  using  a linearly-computed  prestress  state  for  uniform  inplane 
bending; 

• Linear  buckling  analysis  using  a linearly-computed  prestress  state  for  uniform  inplane 
shear. 


4.13.1.3  Available  Solution 

Analytical  solutions  for  the  vibration  analyses  axe  available  in  reference  4.13-1  and  for  the 
buckling  analyses  in  reference  4.13-2. 


Case  1:  Free  vibration 

For  this  analysis,  the  quarter  model  of  plate  1 is  used.  From  pages  492-494  of  reference 
4.13-1,  the  frequencies  for  vibration  are  given  as 


where 


and 


(4.13-1) 


u>mn  = circular  frequency  (radians/second) 
p = mass  density 
Eh3 

° ~ 12(1  - v2) 
h = plate  thickness 
E = Young’s  modulus 
v = Poisson’s  ratio 

m,  n = number  of  half-waves  in  the  x— , y—  directions,  respectively 
/mn  = (hertz) 


Using  this  formula,  frequencies  for  this  problem  may  be  computed  as  follows: 


771 

71 

w2 

mn 

fmn 

1 

l 

4.9867  x 10s 

112.4 

1 

3 

75.0712  x 10s 

436.1 

3 

1 

186.7724  x 105 

687.8 
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For  this  analysis,  the  quarter  model  of  plate  1 is  used  and  the  loading  corresponds  to 
JVv  = —1.0  lb/in.  From  pages  351-356  of  reference  4.13-2,  the  buckling  load  is  given  as 


wv- "(»+^y  <4-i3-2> 

This  expression  implies  that  a plate  buckles  in  such  a way  that  there  are  n halfwaves  in 
the  direction  of  compression  and  only  one  halfwave  in  the  perpendicular  direction.  The 
first  term  in  equation  (4.13-2)  represents  the  Euler  load  for  a strip  of  unit  width  and  of 
length  b.  The  second  term  represents  the  change  in  buckling  load  for  a continuous  plate 
from  an  isolated  strip.  For  this  plate, 


n 

(JVy)cr?  lb/in. 

i 

3 

5 

523.04 

874.89 

1944.23 

Case  3:  Uniform  Biaxial  Compression 

For  this  analysis,  the  quarter  model  of  plate  1 is  used  and  the  loading  corresponds  to 
uniform  biaxial  compression 

NZ  = N°  = - 1.0  lb/in. 

From  pages  356-360  of  reference  4.13-2,  the  buckling  load  may  be  derived  from 


„r  m2i r2  , Ar  n2?r2  ^/m2^2  , n2ir2\ 2 

+ Ny  b2  ~D\  a2  + b2  ) 


(4.13  - 3) 


If  Nx  and  Nv  are  proportional,  then 


Ny  = RNX 


where  R is  constant.  Substituting  this  relation  into  equation  (4.13-3)  and  solving  for 
critical  values  of  Nx  gives 


(Nx)e  r = 


ir2D  ( m 2 + n2pr) 
a2  (m2  + Rn 2 


(4.13  - 4) 


The  value  of  R is  1 for  the  loading  case  being  considered.  Thus 


2 , 2 ' 
m +n- 
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The  critical  values  are  therefore 


m 

n 

(Nm) cr,  lb/ in. 

i 

i 

188.29 

i 

3 

730.58 

3 

1 

1152.36 

1 

5 

1815.15 

5 

1 

3080.48 

Case  4:  Vibration  with  Prestress  State 

For  this  analysis,  the  quarter  model  of  plate  1 is  used  and  the  prestress  state  corresponds 
to  uniform  biaxial  tension. 


N%  = Nf  = S = 1000  lb/in. 

From  pages  481-483  and  492-494  of  reference  4.13-1,  the  vibration  frequencies  for  a pre- 
stressed rectangular  plate  may  be  derived  as 


cj 


2 

mn 


(4.13  - 6) 


The  first  term  of  equation  4.13-6  represents  the  free  vibration  frequency.  The  second  term 
represents  the  effect  of  uniform  prestress  on  the  vibration  frequencies.  Tensile  prestress 
forces  increases  the  vibration  frequencies  while  compressive  prestress  forces  decrease  the 
vibration  frequencies.  For  the  plate  considered  herein,  the  vibration  frequencies  for  a 
tensile  prestress  force  S of  1000  lb/in.  are  as  follows: 


m 

n 

wmn 

fmn 

i 

i 

3.1470  x 10® 

292.34 

i 

3 

17.7827  x 106 

671.15 

3 

1 

34.8851  x 10® 

940.03 

Case  5:  Inplane  Bending 

For  this  analysis,  the  half  model  of  plate  2 is  used  and  the  loading  across  the  edge  AB 
varies  linearly  from  JV®  = 1.0  lb/in.  at  point  A to  N°  = —1.0  lb/in.  at  point  B.  From  pages 
373-379  of  reference  4.13-2,  the  buckling  load  is  given  as 

(■ N*)cr  = k ^ (4.13-7) 

where  the  value  of  k depends  on  the  ratio  j and  on  the  linear  distribution  of  the  loading. 
Specific  values  of  k are  given  in  Table  9-6  on  page  337  of  reference  4.13-2.  For  the  plate 
considered  herein,  the  value  of  k is  24.1  which  then  gives  a critical  load  of  6534.54  lb/in. 
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Uniform  Inplane  Shear 

For  this  analysis,  the  full  model  of  plate  3 is  used  and  the  loading  corresponds  to 

Nly  = 1.0  lb/in. 

From  pages  379-385  of  reference  4.13-2,  the  buckling  load  is  given  as 

(Nxy)cr  = k^-  (4.13-8) 

where  the  value  of  Jfe  depends  on  the  ratio  of  £ and  is  given  in  Table  9-10  on  page  382  of 
reference  4.13-2.  For  the  plate  considered  herein,  the  value  of  k is  7.53  which  then  gives  a 
critical  load  of  3629.69  lb/in. 

4.13.2  PROCEDURE  USAGE 

Procedure  RECT-PLATE  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive, and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments 
are  order-independent,  and  most  have  default  values  thus  making  them  optional.  The 
formal  syntax  is  as  follows: 

♦call  RECT-PLATE  ( argl  = vail  ; arg2  » va!2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  RECT-PLATE  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

CASE 

0 

Select  analysis  case 

E 

30.  E6 

Young’s  Modulus 

ES.PR0C 

ESI 

Element  Processor 

ES-NAHE 

EX47 

Element  name 

LX 

7.5 

Length  in  x-direction 

LY 

10.0 

Length  in  y-direction 

NU 

0.3 

Poisson’s  ratio 

PRINT 

<false> 

Print  flag 

THICKNESS 

0.1 

Thickness 

VTDEN 

0.1 

Weight  density 

4.13-  6 


CSM  Testbed  Procedures  Manual 


Revised  5/23/90 


Application  Procedures 


RECT_PLATE 


4.13.3  ARGUMENT  DESCRIPTIONS 

4.13.3.1  CASE 

Select  analysis  case  (default:  0).  This  argument  is  used  to  select  a specified  analysis  case 
number  from  one  to  six.  The  procedure  will  then  perform  only  that  specfic  analysis.  If  all 
six  analysis  cases  are  desired,  then  the  argument  CASE  should  be  set  to  zero. 

4.13.3.2  E 

Young’s  elastic  modulus  (default:  30.0  x 10®  psi). 

4.13.3.3  ESJJAME 

Element  name  (default:  EX47).  This  is  the  name  of  the  specific  shell-element  type  you 
wish  to  select,  within  the  element  processor  defined  by  argument  ES.PR0C.  The  default 
shell-element  type,  EX47,  is  a 4-noded  quadrilateral  element  implemented  in  Processor 
ESI,  and  described  in  The  Computational  Structured  Mechanics  Testbed  User’s  Manual 
(see  ref.  4.13-3). 

4.13.3.4  ES-PROC 

Element  Processor  (default:  ESI)  This  is  the  name  of  the  structural  element  (ES)  Processor 
that  contains  the  shell  element  type  you  wish  to  employ  in  the  model.  The  default  shell- 
element,  Processor  ESI,  is  described  in  The  Computational  Structural  Mechanics  Testbed 
User’s  Manual. 

4.13.3.5  LX 

Length  of  the  plate  model  in  the  a; -direction  (default:  7.5  inches). 

4.13.3.6  LY 

Length  of  the  plate  model  in  the  y— direction  (default:  10.0  inches). 

4.13.3.7  NU 

Poisson’s  ratio  (default:  0.3). 

4.13.3.8  PRINT 

Print  flag  (default:  <false>).  If  the  argument  PRINT  is  defined  to  be  <true>,  then  all 
computed  results  (displacements,  modeshapes,  stresses)  will  be  printed. 

4.13.3.9  THICKNESS 

Thickness  of  the  plate  (default:  0.1  inches). 

4.13.3.10  VTDEN 

Weight  density  (default:  0.1  lb/in.3).  Processor  LAU  converts  the  weight  density  to  mass 
density. 
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4.13.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  RECT_PLATE  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or 
all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

*call  RECT  PLATE  ( ES.PROC  = ESI  ; ES_NAME  = EX47  ; 

CASE  = 0 ; 

LX  = 7.5  ; — 

LY  - 10.0  ; — 

E = 30. E6  ; — 

NU  * 0.3  ; — 

PRINT  * <false>  ; — 

THICKNESS  =0.1  ; — 

VTDEN  = 0.1  ) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  that  is, 

•call  RECT-PLATE 


Using  the  default  values  for  the  procedure  arguments,  the  amount  of  CPU  time 
required  for  this  analysis  on  various  computer  systems  is  shown  in  Table  4.13-1. 


Thble  4.13-1  Typical  CPU  Times  for  Various  Computer  Systems 


Computer  System 

Total 

CPU  Time, 
seconds. 

VAX  11/785 
VMS  4.7 

MicroVAX 
ULTRIX  2.2 

SUN 

SUNVIEW  4.0 

CONVEX  C220 
VERSION  7.0 

CRAY-2 
UNICOS  4.0 
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4.13.5  LIMITATIONS 

The  finite  element  model  is  restricted  to  models  using  4-node  quadrilateral  elements.  The 
model  has  a total  of  54  nodes  and  40  elements  (5  elements  in  the  x- direction  and  8 elements 
in  the  y-direction). 

4.13.0  ERROR  MESSAGES  AND  WARNINGS 
None. 


4.13.7  PROCEDURE  FLOWCHART 


RECT.PLATE 

(main  procedure) 

ES 

(define  elements) 

L_VIBRAT_0 

(free  vibration  analysis;  CASE=l) 

L-STABIL.2 

(buckling  analysis  with  uniaxial  compression;  CASE=2) 

L-STABIL-1 

(buckling  analysis  with  biaxial  compression;  CASE=3) 

L-VIBRAT-1 

(vibration  with  prestress;  CASE=4) 

L-STABIL.2 

(buckling  with  inplane  bending;  CASE=5) 

L-STABIL-1 

(buckling  with  inplane  shear;  CASE=6) 

4.13.8  PROCEDURE  LISTING 
4.13.8.1  UNIX  Script 

rect_plate . com 

cd  /scr/*USER 

cp  ICSM.PRC/proclib.gal  proclib.gal 

chaod  u+v  proclib.gal 

rm  rect. plate. 101 

tine  testbed  « \andinput 

♦set  acho  off 

♦set  plib=28 

♦open  28  proclib.gal  /old 

♦add  * ICSM. APP/ract.plate/rect.plata . clp » 

♦open  1 ract.plata.101  /new 

♦del/a  solver.naae  = BAND 

♦del/a  eigensolver.nane  = LANZ 


. Eigenvalue  Problems  (Buckling  and  Vibration) 
. for  an  Isotropic  Rectangular  Plate 
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♦call  RECT.PLATE  ( casa=2;  ss_naae=sx47;ss_proc=as7;print=<trus>) 
♦stop 

♦closa  28  /dalsta 
\sndinput 


4.13.8.2  CLAMP  Procedure 


rect_plate.clp 

♦PROCEDURE  RECT.PLATE  ( casa=0;  ai„.nana*’ax47 » ;es.proc=  ’asl ’ ; — 

lx*7.6;ly=10.0;a=30. 0a+6;nu=0 . 3;  — 
thickness=0. 1 ;wtdan=0. 1 ; print =<falsa>  ) 


Ract angular  plats 

♦dal/a  g a < [a]  / <2.  * <l.  + [nu]>  > > 

♦daf/s  alpha  = .1-4 


[XQT  TAB 
START  54,6 

TITLE ’RECTANGULAR  PLATE  PROBLEM 
TEXT 

’THE  FOLLOWING  PLATE  PROBLEMS  ARE  SOLVED  IN  THIS  RUN: 

’ 1 FREE  VIBRATION  OF  A RECTANGULAR  PLATE. 

’ 2 BUCKLING  OF  A RECTANGULAR  PLATE,  COMPRESSED  IN  ONE  DIRECTION. 

’ 3 BUCKLING  OF  A RECTANGULAR  PLATE,  UNIFORM  COMPRESSION. 

’ 4 FREE  VIBRATION  OF  A PRE-STRESSED  RECTANGULAR  PLATE. 

’ 6 BUCKLING  OF  A RECTANGULAR  PLATE,  BENDING  LOAD. 

» 6 BUCKLING  OF  A RECTANGULAR  PLATE,  SHEAR  LOAD. 


JOINT  LOCATIONS 

1 0 0 0 [lx]  0 0 6 1 9 
6 0 [ly]  0 tlx]  [ly]  0 


CONSTRAINT  CASE  1: 


CON  CASE  1 
SYMMETRY  PLANE=1 
SYMMETRY  PLANE*  2 
ZERO  3 4:  6,48,6 
ZERO  3 5:  49,53 
ZERO  3:  54 


CONSTRAINT  CASE  2: 


CON  CASE  2 
SYMMETRY  PLANE* 1 
ZERO  2:  25 

£ERO  3:  1,6:  12,54,6:  49,53 
ZERO  4:  12,48,6 
ZERO  5:  1,6:  49,63 

CONSTRAINT  CASE  3: 
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CONSTRAINT  CASE  3 

ZERO  1: 

1,6:  64 

ZERO  2: 

1,49,6 

ZERO  3: 

1,6:  12,64,6:  7,49,6: 

ZERO  4: 

12,48,6:  7,43,6 

ZERO  6: 

2,5:  60  63 

[XQT  AOS 

TABLE(NI=16,NJ=1) : ONB  DATA  1 1 
1*1, 2, 3, 4, 6,6,7, 8, 9 

J*l:  [e]  [nu]  [*]  <g>  <g>  <g>  <alpha>  <alpha>  [wtden] 
TABLE  (NI*3,NJ*1,ITTPE=0):  LAN  ONB  1 1 
J=1  : 1 [thickness]  0. 

[XQT  LAO 
stop 

•cell  ES  ( function  • ’DEFINE  ELEMENTS’  ; es.proc  = [es.proc]  ; 
es.naae  * [es.naae]  ; es.pars  = 0.0  ) 

[XQT  ELD 

<ES_EXPE_CHD> 

NSECT  « 1 

1 2 8 7 1 6 8 

. LOAD  CASE  1: 


[XQT  AOS 

ALPHA:  CASE  TITLE  1 

l’conpressive  forces  in  y-direction  applied  at  y=10. 

STS7EC : APPLIED  FORCES  1 
1*2 

J0INTS=49:  64:  -.75 
J0INTS*60,53:  -1.5 

LOAD  CASE  2: 

ALPHA;  CASE  TITLE  2 

l’coapressive  forces  in  x-  and  y-directions  applied  at  y=10.,  x=7 .5 
STS7EC : APPLIED  FORCES  2 
1*2 

JOINTS=40:  54:  -.76 
JOINTS*60,63:  -1.60 
1*1 

J0INTS«8 : 54 : - . 625 
J0INTS*12,48,6:  -1.25 

LOAD  CASE  3: 

ALPHA:  CASE  TITLE  3 
1 ’bending  forces  applied  at  x*7.6 
STSVEC : APPLIED  FORCES  3 
1=1 

J0INTS=6:  .67292 
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J0INTS*12,24,6:  .9376  .6260  .3126 
JQINTS=36,48,6:  -.3126  -.6260  -.9376 
J0INTS=64:  -.67292 

LOAD  CASE  4: 

ALPHA:  CASE  TITLE  4 

1* shear  forces  applied  at  x=7.6  and  y=10. 

STSVEC:  APPLIED  FORCES  4 
1=2 

J0INTS*6:  64:  .626 
J0INTS*12 ,48,6:  1.260 
1=1 

J0INTS=49 : 64:  .760 
J0INTS=60 ,53:  1.600 

LOAD  CASE  6: 

ALPHA:  CASE  TITLE  6 

1> tensile  forces  in  x-direction  applied  at  x=7.6 
STSVEC:  APPLIED  FORCES  6 
1*1 

J0INTS*6:  64:  1260. 

J0INTS=12,48,6:  2600. 
stop 


PROCESS 

•if  < [case]  /eq  0 >/then 

•call  L.VIBRAT.O  ( f unction*’ all* ;N.*odes=6; print* [print] ;vcon.set=l  ; 
mass .types* consistent  * ) 

•call  L.STABIL.2  ( function* ’fact.solv’ ;N.modes=2;  — 
cons_set=l;  bcon_set=l;  — 
shift =0.0;  stress=<true>;  — 

react ion=<true> ;print= [print]  ) 

•call  L.STABIL.l  ( function* ’EIGEN’ ; bcon.set=l;  — 

N.aodes=2;  ps.l=-1.0;ps.2=-1.0; print* [print]  ) 

•call  L.VIBRAT.l  ( functions* all* ;vcon_set=l ; — 

ps.l*1000 . 0 ;ps_2=1000 . 0 ;N_«odes=6 ; print* [print]  ; - 
■ass. type* ’consistent 1 ) 

•call  L_STABIL_2  ( function* ’fact.solv’ ;N.aodes=2 ; — 

cons.set=2 ;bcon.set=2 ;load.set=3 ; — 
shift =0.0;  stress=<true>;  — 

react ion=<true> ; print* [print]  ) 

•call  L.STABIL.l  ( function* ’all’ ;N.nodes*2;  — 
ps_3=l . 0 ;bcon.set=3 ; — 
shift*0.0;  — 
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prints [print]  ) 


♦else 

♦if  < [case]  /«q  1 >/then 

♦call  L.VIBRAT.O  ( functions ’all’  ;N_nodes=6;  prints  [print]  ;vcon_set=l  ; 
nass„type= ’ consistent  * ) 

♦elseif  < [case]  /oq  2 >/then 

♦call  L.STABIL.2  ( functions ’all’ ;N_»odes=2;  — 

locations ’ all ’; directions!;  — 
cons_set=l;  bcon_set=l;  — 
shiftsO.O;  stress=<true>;  — 

react ions <true>  sprints  [print]  ) 

♦elseif  < [case]  /eq  3 >/then 

♦call  L.STABIL-1  ( functions » all  * ; bcon_set=l;  — 

N_nodes=2 ; ps_l=-l . 0;ps_2=-l . 0 sprints [print]  ) 

♦elseif  < [case]  /eq  4 >/then 


♦call  L-VIBEAT.l  ( functions ’ all ’ ;vcon_set=l ; — 

ps_ 1=1000 . 0 ; ps_2=1000 . 0 ;N_aodes =6 ; prints [print]  ; — 
■ass .types  > consistent ’ ) 

♦elseif  < [case]  /eq  6 >/then 


♦call  L.STABIL.2  ( functions ’all’ ;N_*odes=2;  — 

cons_set=2 jbcon.set =2 ;load-*et=3 ; — 
shiftsO.O;  stresss<true>;  — 

r eac t ions < t rue> ; prints [print]  ) 


♦elseif  < [case]  /eq  6 >/then 

♦call  L.STABIL.l  ( functions ’ all ’ ;H_aodes =2;  — 
ps_3=l .0;bcon_set=3 ; — 
shiftsO.O;  ~ 
prints [print]  ) 


•endif 

♦endif 

[zqt  dcu 
toe  1 

♦end 
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4.16  Procedure  VIB_2D 

4.16.1  GENERAL  DESCRIPTION 

This  application  procedure  involves  linear  free  vibration  analyses  of  a beam  and  a cir- 
cular ring  (see  Figure  4.16-1).  These  one-dimensional  structures  are  modeled  using  two- 
dimensional  shell  elements.  Various  boundary  conditions  are  imposed  to  obtain  vibration 
modes  about  different  coordinate  axes. 


N 

N 

N 

N 

N 

N 


E - 10.  x 106psi 
v = 0. 


Length  =10.  inches 

width  =1 .0  inches 

thickness  = .1  inches 


(a)  Cantilevered  Beam 


E = 10.  x 106psi 
v=  0. 


inner  radius  = 6.366  inches 
outer  radius  * 7.366  inches 
thickness  = .1  inches 


(b)  Circular  Ring 


Figure  4.16-1  Free  Vibration  Problems 
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4.16.1.1  Model  Description 

Procedure  VIB_2D  uses  a full  model  of  the  cantilevered  beam  and  a quarter  model  of 
the  circular  ring.  The  mesh  topology  is  rectangular  and  restricted  to  quadrilateral  shell 
elements  with  4-  or  9-nodes.  The  mesh  generation  capability  of  processor  ELD  is  used 
to  generate  the  various  meshes  used  in  this  application  problem.  The  cantilevered  beam 
shown  in  figure  4.16-la  is  fixed  at  one  end  and  free  at  the  other.  Only  a quarter  of  the 
circular  ring  shown  in  figure  4.16-lb  is  modeled  with  symmetry  conditions  imposed  at  both 
ends. 


4.16.1.2  Analysis  Description 

Procedure  VIB.2D  performs  three  different  linear  free  vibration  analyses  through  successive 
procedure  calls  using  the  solution  procedure  L_VIBRAT_0  described  in  Chapter  3. 

4.16.1.3  Available  Solution 

Analytical  solutions  for  the  vibration  analyses  are  available  in  reference  4.16-1. 


Case  1:  Free  Inplane  Vibration 

For  this  analysis,  all  degrees  of  freedom  in  the  z-direction  have  been  constrained  to  zero  so 
that  only  inplane  vibration  will  occur.  From  page  369  of  reference  4.16-1,  the  frequencies 
for  longitudinal  (axial)  vibration  are  given  as 


— 


mir  / E 
~2L  y ~p 


(4.16  - 1) 


and  the  frequencies  for  inplane  flexural  vibrations  are  given  on  page  426  of  references  4.16-1 


as 


(4.16  - 2) 


where 

= circular  frequency  (radians/second) 
p = mass  density 
L = beam  length 
E = Young’s  modulus 

Izz  = Moment  of  Inertia  about  z-axis,  — &3h 
v = Poisson’s  ratio 

m = number  of  half-waves  in  the  x-directions,  respectively 

and 

fm  = ^ (hertz) 
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The  constant  km  is  obtained  from  the  roots  of  the  equation 

cos  kmL  cosh  kmL  = -1  (4.16  - 3) 

The  consecutive  roots  of  this  equation  are 


m 

kmL 

i 

1.875 

2 

4.694 

3 

i 

7.855 

4 

_____ — i 

10.996 

Using  these  formula,  frequencies  for  this  problem  may  be  computed  as  follows: 


771 

u>2 

fm 

Type 

l 

4.776  x 10s 

109.990 

Flexural 

2 

187.590  x 10s 

689.326 

Flexural 

1 

1144.085  x 105 

1702.351 

Axial 

3 

1471.031  x 10s 

1930.328 

Flexural 

2 

4576.338  x 105 

3404.702 

Axial 

4 

5649.057  x 105 

3782.754 

Flexural 

3 

10296.761  x 10s 

5107.054 

Axial 

Case  2:  Free  Lateral  Vibration 

For  this  analysis,  only  the  degrees  of  freedom  in  the  z-direction  are  unconstrained  and 
hence  lateral  vibration  mode  shapes  and  frequencies  will  be  obtained.  From  page  426  of 
reference  4.16-1,  the  frequencies  are  given  as 


where 


(4.16  - 4) 


km  = roots  of  equation  4.16-3 

Iyy  = moment  of  inertia  about  y-axis,  — Wi3 

Using  this  formula,  the  vibration  frequencies  for  this  problem  may  be  computed  as  follows: 


m 

w2 

m 

fm 

i 

4.776  x 103 

10.999 

2 

187.590  x 103 

68.933 

3 

1471.031  x 103 

193.033 

4 

5649.057  x 103 

378.275 
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Case  3:  Free  Vibration  of  Ring 

For  this  analysis,  a quarter  model  of  the  circular  ring  is  used.  The  extensional  vibration 
modes  resemble  the  longitudinal  vibration  modes  of  prismatic  beams.  The  simplest  ex- 
tensional mode  of  vibration  corresponds  to  uniform  radial  motion  of  the  ring  (circles  of 
periodically  varying  radius).  From  pages  476-477  of  reference  4.16-1,  the  frequencies  for 
the  extensional  vibration  modes  are  given  as 

where  R is  the  radius  of  centerline  of  ring. 

Pure  radial  vibrations  are  obtained  for  the  case  of  m = 0.  Using  this  formula,  the  frequen- 
cies for  extensional  vibration  may  be  computed  as  follows: 


771 

( j) ^ 

wm 

fm 

0 

1.1441  x 10® 

1702.351 

1 

2.2882  x 10® 

2407.488 

2 

5.7204  x 10® 

3806.573 

3 

11.4408  x 10® 

5383.308 

The  inplane  flexural  vibration  of  a circular  ring  corresponds  to  vibration  modes  in  the 
plane  of  the  ring.  From  pages  479-481  of  reference  4.16-1,  these  frequencies  are  given  as: 


f jEJ2Ztti2(1  - m2)2 
pA  R*(  1 + m2) 


(4.16  - 6) 


For  m = 1,  the  frequency  is  zero  which  implies  that  the  ring  moves  as  a rigid  body.  Using 
this  formula,  the  frequencies  for  the  inplane  vibration  modes  may  be  computed  as  follows: 


m 

u>2 

fm 

i 

0.0 

0.0 

2 

169.3749 

2.071 

3 

1354.9994 

5.858 

4 

4981.6155 

11.233 

6 

28038.4171 

26.650 

8 

91931.4991 

48.256 

10 

228278.8317 

76.042 
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4.16.2  PROCEDURE  USAGE 

Procedure  VIB-2D  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  VIB.2D  ( argl  - vail  ; arg2  = va!2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  VIB_2D  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

CASE 

BAR 

Select  vibration  case 

E 

10.  E6 

Young’s  Modulus 

ES-PROC 

ESI 

Element  Processor 

ESJIAME 

EX97 

Element  name 

GRIDS 

1 

Grid  identification  numbers 

NGRIDS 

1 

Number  of  grids 

NNX 

3 

Number  of  nodes  for  each  grid 

L 

10.0 

Length  in  x-direction 

PRINT 

<false> 

Print  flag 

THICKNESS 

0.1 

Thickness 

VTDEN 

5/6 

Weight  density 

B 

1.0 

Beam  or  ring  depth 

DBC 

VIB-2D.DBC 

Computational  database  name 

DBR 

VIB-2D.DBR 

Results  database  name 

SHIFT 

0.0 

Eigenvalue  shift 

MASS-TYPE 

CONSISTENT 

Type  of  mass  matrix 

N-MODES 

5 

Number  of  eigenvalues  desired 

4.16.3  ARGUMENT  DESCRIPTIONS 
4.16.3.1  CASE 

Select  vibration  case  (default:  BAR).  This  argument  selects  the  vibration  analysis  to  per- 
form. The  options  include  BAR,  BEAM,  and  RING.  The  CASE-BAR,  the  analysis  corresponds 
to  the  axial  vibration  of  a rod.  For  CASE-BEAM,  the  analysis  corresponds  to  the  lateral 
vibration  of  a beam.  For  CASE-RING,  the  analysis  corresponds  to  extensional  and  flexural 
vibration  of  a circular  ring. 
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4.16.3.2  DBC 

Name  of  computational  database  file  (default=VIB.2D  .DBC).  This  file  will  contain  all  model 
definition  data,  element  computational  data,  one  copy  of  the  assembled  and  factored  stiff- 
ness matrices,  the  buckling  eigensolution,  and  displacement  and  internal  force  vectors  for 
every  load  step  computed  during  the  analysis. 

4.16.3.3  DBR 

Name  of  results  database  file  (default=VIB_2D.DBR).  This  file  will  contain  one  dataset 
called  RESPONSE. HISTORY  generated  during  nonlinear  analysis.  The  dataset  will  contain 
record  groups  — indexed  by  load  step  number  — for  a number  of  solution  parameters, 
including  the  load  factor  and  maximum  axial  displacement  components.  This  database  is 
valuable  for  obtaining  load-displacement  plots,  and  for  evaluating  the  performance  of  the 
nonlinear  solution  strategy  employed. 

4.16.3.4  E 

Young’s  elastic  modulus  (default:  10.0  x 10  psi). 

4.16.3.5  ESJfAME 

Element  name  (default:  EX97).  This  argument  gives  the  name  of  the  specific  shell-element 
type  to  select,  within  the  element  processor  defined  by  argument  ES-PROC.  The  default 
shell-element  type,  EX97,  is  a 9- node  quadrilateral  element  implemented  in  processor  ESI, 
and  described  in  The  Computational  Structural  Mechanics  Testbed  User’s  Manual  (see 
ref.  4.16-2). 

4.16.3.6  ES-PROC 

Element  processor  (default:  ESI)  This  argument  gives  the  name  of  the  structural  element 
(ES)  processor  that  contains  the  shell  element  type  to  employ  in  the  model.  The  default 
shell-element,  processor  ESI,  is  described  in  The  Computational  Structural  Mechanics 
Testbed  User’s  Manual. 

4.16.3.7  GRIDS 

Grid  identification  numbers  (default:  l).  This  array  specifies  the  identification  number  for 
each  discretization. 

4.16.3.8  L 

Length  of  the  beam  model  in  the  ^-direction  (default:  10.0  inches).  For  the  case  of  the 
circular  ring,  the  radius  is  calculated  as  2L/ir. 

4.16.3.0  MASS-TYPE 

Type  of  mass  matrix  (default:  CONSISTENT).  If  MASS-TYPE  - CONSISTENT,  the  element 
processor  will  generate  consistent  element  mass  matrices  that  will  be  assembled  by  proces 
sor  K to  form  the  system  mass  matrix.  If  MASS-TYPE  = DIAGONAL,  the  element  processor 
will  generate  a diagonal  or  lumped  mass  matrix. 
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4.16.3.10  NGRIDS 

Number  of  grids  (default:  l).  This  argument  provides  a mechanism  to  perform  automati- 
cally a limited  convergence  study  using  several  different  discretizations. 

4.16.3.11  N-HODES 

Number  of  converged  eigenvalues  desired  (default:  5).  This  argument  specifies  the  number 
of  eigenvalues  to  calculate  to  a convergence  criterion  of  .0001. 

4.16.3.12  NNX 

Array  of  number  of  nodes  for  NGRIDS  models  (default:  3).  This  array  is  of  length  NGRIDS 
and  represents  the  number  of  nodes  along  the  length  of  the  beam  or  along  the  circumference 
of  the  ring. 

4.16.3.13  PRINT 

Print  flag  (default:  <false>).  If  the  argument  PRINT  is  defined  to  be  <true>,  then  all 
computed  results  (displacements,  modeshapes,  stresses)  will  be  printed. 

4.16.3.14  SHIFT 

Eigenvalue  shift  (default:  0 . 0).  Converged  eigenvalues  will  only  be  obtained  for  eigenvalues 
greater  than  SHIFT.  The  shift  parameter  refers  to  the  frequency  squared  (w2)  for  vibration 
problems. 

4.16.3.15  THICKNESS 

Thickness  of  the  beam  (default:  0.1  inches).  The  ring  thickness  has  a default  value  of 
one-tenth  the  beam  thickness. 

4.16.3.16  WTDEN 

Weight  density  (default:  5/6  lb/in.3).  Processor  LAU  converts  the  weight  density  to  mass 
density. 

4.16.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  VIB.2D  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

•call  VIB  2D  ( ES_PR0C  = ESI  ; ES.NAME  * EX47  ; — 

L = 10.0  ; — 

E = 10. E6  ; — 

B = 1.0  ; — 

DBC  = VIB.2D.DBC  ; — 
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DBR  = VIB.2D.DBR  ; — 

MASS.TYPE  * CONSISTENT  ; — 

GRIDi  = 1,2,3  ; -- 
NGRIDS  * 3 ; 

NNX  * 5,9,17  ; — 

SHIFT  - 0.0  ; — 

N.MODES  * 5 ; — 

PRINT  = <fals«>  ; — 

THICKNESS  =0.1  ; — 

WTDEN  =0.1  ) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  that  is, 

♦call  VIB.2D 


Using  the  default  values  for  the  procedure  arguments,  the  amount  of  CPU  time  required 
for  this  analysis  on  various  computer  systems  is  shown  in  Table  4.16-1. 
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Table  4.10-1  Typical  CPU  Times  for  Various  Computer  Systems 


Computer  System 


VAX  11/785 
VMS  4.7 


MicroVAX 
ULTRIX  2.2 


SUN 

SUNVIEW  4.0 


CONVEX  C220 
VERSION  7.0 


CRAY-2 
UNICOS  4.0 


Total 


UFU  Time, 
seconds. 


4.16.5  LIMITATIONS 


None. 


4.16.0  ERROR  MESSAGES  AND  WARNINGS 


None. 


4.10.7  PROCEDURE  FLOWCHART 


VIB_2D 


VIB_2D_CTL 


VIB-2D-M0D 


VIB-2D-C0N 


VIB.2D.BCS 


L-VIBRAT-0 


(main  procedure) 

(control  procedure) 

(define  2-D  models  of  beam/ring) 

(define  elements) 

(define  connectivities) 

(define  boundary  conditions) 

(define  freedoms) 

(linear  free  vibration  solution  procedure) 


Revised  5/25/90 


CSM  Testbed  Procedures  Manual 


VIB.2D 


Application  Procedures 


4.10.8  PROCEDURE  LISTING 
4.10.8.1  UNIX  Script 


vib.2d.com 


cd  /scr/$USEA 

cp  iCSM.PRC/proclib.gal  proclib.gal 
chaod  u+w  proclib.gal 
ra  VIB* .* 

time  testbed  « \endinput 
•set  echo  o ff 
♦•at  plib=28 

•open  28  proclib.gal  /old 

•add  * tCSM.APP/ vib_2d/ v ib_2d . clp  * 

•dei/a  solvsr.nane  * INV 
•dal/a  eigen  solver  .name  = EIG2 


Axial  Vibration  of  a Bar 


♦call  VIB.2D  ( case  = BAR;  nass.type  = CONSISTENT;  — 


ES.NAME=EI97 ; ~ 

thickness  = .1  ; b = 1.0  ; — 

vtdan  a <6./6.>  ; 

prints  <false>  ; — 

shift =0.0  ; nnx=7,9,ll ; grids=l,2,3;  ngrids=3;  — 

DBC= VIB.2D . BBC ; DBR=VIB_2D.DBR  ) 


ES_PRQC=ES7 
L * 10.0 

E a l.a7 

N.aodes  = 6 


Lataral  Vibration  of  a Baas 

•call  VIB.2D  ( case  = BEAN  ; nass.type  = CONSISTENT;  — 

ES_PR0C=ES7  ; ES_NANE=EX97 ; — 

L =10.0  ; thickness  = .1  ; b * 1.0  ; — 

E a l . a 7 ; vtdan  » <6./6.>  ; 

N.aodes  = S ; prints  <falsa>  ; — 

shift =0.0  ; nnx=5,9t17;  grids=l,2,3;  ngrids=3;  — 

DBCsVIB.2D.DBC ; DBR=VIB.2D . DBR  ) 

. Extensional  and  Flexural  Vibrations  of  a Circular  Ring 


•call  VIB.2D  ( case  = RING  ; mass. type  = CONSISTENT;  — 

ES_PR0C=ES7  ; ES.NAHE=EX97 ; — 

L =10.0  ; thickness  = .1  ; b = 1.0  ; — 

E * l.e7  ; vtdan  = <B./6.>  ; 

N.aodes  = 5 ; print®  <false>  ; — 

shiftsO.O  ; nnx=5,9, 17 ; grids=l,2»3;  ngrids=3;  — 
DBC=VIB.2D . DBC ; DBR=VIB.2D . DBR  ) 

•stop 

•close  28  /delate 
\ and  input 
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4*10.8*2  CLAMP  Procedure 


vib_2d.clp 


♦procedure  VIB.2D.CTL  ( case  5 BAR  ; — . BAR  I BEAM  | RING 

■ass.type  = CONSISTENT  ; — . CONSISTENT  I DIAGONAL 
ES_PR0C=ES1  ; ES_NAME=EX97 ; ~ 

L =10.0  ; thickness  = .1  ; b = 1.0  ; — 

E = 1 . e7  ; vtden  = <5./6*>  ; 

N_modes  = 5 ; print*  <false>  ; — 


shift =0.0  ; nnx=6;  grid=l;  — 

DBC=VIB_2D.DBC;  DBR=VIB_2D . DBR  ) 

♦open/nev  1 , [DBc] 

♦call  VIB_2D_M0D  ( es.proc  = [es.proc]  ; es.nane  = [es.name] ; — 

nnx  = [nnx]  ; L * [L] ; h=[thickness]  ; — 

E=[E];  b=[b];  rho=  [vtden];  case* [case]  ) 


. *show  nacros 
. *set  echo, on 

♦call  L_VIBRAT_0  ( Njaodes=[N_nodes]  ; print  = [print];  — 
shift* [shift] ; — 
nas8_type=[mass_type]  ) 

♦end 

♦procedure  VIB_2D_M0D  ( es_proc=ESl;  es_name=EX97;  es_pars=0 . ; — 

nnx  =11  ; — 

L * 10.0  ; h = .1  ; — 

E * l.e7  ; b = 1.0;  — 

rho  * <5./6.>  ; case  * BAR  ) 


Vibrations  of  a Cantilevered  Bean  via  Plate  Elements 


. Define  Model 

♦call  ES  ( function  = ’DEPINE  ELEMENTS1  ; es.proc  * [es.proc];  — 
es.naae  * [es.nase]  ; es.pars  * [as .pars]  ) 

♦def/i  nny  * < <ES_NEN>~.6  > 

[XQT  TAB 

♦def/i  nnt  * < [nnx]*<nny>  > 

START  <nnt> 

JL0C 

. DEFINE  NODAL  COORDINATES 

♦if  < <IFELSE( [case] ;RING; 1 ;0)>  > /then 


. Define  First  Quadrant  of  a Cylinder  of  Unit  Axial  Length 


♦def/e  theta  * 90. 

*def/e  radius  * ([L]*2/<pi>) 

FORMAT  * 2 

lf  <radius>,  0.,  0.f  <radius>,  <theta>,  0.,  [nnx],  1,  <nny> 

[nnx],  <radius>,  0.,  1.,  <radius>,  <theta>,  1. 
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JREF 

NREF  * -1 
1 , <nnt> 

♦else 

1,  0.,  0.,  0.,  [L] , 0.,  0.,  [nnx],  1,  <nny> 

[nnx]  , 0. , tb]  , 0 . , [L]  , [b]  , 0 . 

♦endif 

. DEFINE  MATERIAL/ SECTION  PROPERTIES 
[XQT  AUS 

. Build  Table  of  Material  Data 
TABLE(NI*16,NJ*1):  0MB  DATA  1 1 
*def /el2.4  NU  = 0.0 

♦def/gl2.4  G * < [E]  / (2.*(1 .♦<NU>))  > 

1=1,2, 3, 4, 6, 6,7, 8,9 

J=l:  [E]  <NU>  [E]  <G>  <G>  <G>  0.  0.  [rho] 

. Build  Laninate  Data  Tables 

TABLE(NI=3  ,NJ«1 ,ITYPE*0)  : LAM  0MB  1 1 

1=1, 2, 3 . (naterial.type , layer.thickness , angle (deg.) 

J=1 ; 1 [h]  0.0 

[XQT  LAD 
0NLINE=2 

. GENERATE  ELEMENTS 

[xqt  ELD 

<ES.EXPE.CMD> 

NSECT  = 1 

Define  element  nodal  connectivity 

♦call  ?IB.2D.C0NN  ( nnx=[nnx] ; nny=<nny>;  nen=<es_nen>  ) 

. DEFINE  BOUNDARY  CONDITIONS 

♦call  FIB.2D.BCS  ( nnx  = [nnx]  ; nny  = <nny>  ; — 

nen  = <es.nen>  ; case  = [case]  ) 

♦call  ES  ( function  - > DEFINE  FREEDOMS  * ) 


♦end 

♦procedure  YIB.2D.C0NN  ( nnx;  nny;  nen  ) 


. Define  Eleaent  Connectivity  Record  for  ELD  Processor 
. =========================== 


•if  < [n«n]  /.q  4 > /then 
•do  tiy  • 1,  <[nny]-l> 

•do  tiz  • 1,  <[nnx]-l> 
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♦def/i  nl  ® 
*def/i  n2  = 
♦def/i  n3  ® 
♦def/i  n4  = 


< (<$iy>-l)*[nnx]  ♦ <$ix>  > 

< <nl>  ♦ 1 > 

< <n2>  ♦ [nnx]  > 

< <n3>  1 > 


<nl>  <n2>  <n3>  <n4> 


ssaassssss 


♦end do 
•enddo 

♦elseif  < [nan]  /aq  9 > /than 
♦do  tiy  = i,  <[nny]-2>,  2 


•do  fix  = 

1. 

<[nnx]-2>,  2 

•doi/i 

nl 

a 

< 

(<$iy>-l)*[nnx]  ♦ <|ix>  > 

*d«f/i 

n2 

a 

< 

<nl>  ♦ 2 > 

•doi/i 

n3 

a 

< 

<n2>  ♦ (2* [nnx])  > 

• 'doi/i 

n4 

= 

< 

<n3>  - 2 > 

• doi/i 

n6 

= 

< 

<nl>  ♦ 1 > 

• doi/i 

nfl 

s 

< 

<n2>  ♦ [nnx]  > 

•doi/i 

n7 

= 

< 

<n4>  ♦ 1 > 

•dof/i 

n8 

a 

< 

<n6>  - 2 > 

• doi/i 

n9 

= 

< 

<n8>  ♦ 1 > 

<nl>  <n2>  <n3>  <n4>  <n5>  <n6>  <n7>  <n8>  <n9> 


♦enddo 

♦enddo 

♦endif 

♦and 

♦procadura  VIB_2D_BCS  ( nnx =3 ; nny®3;  nan®9;  casa  = BAB  ) 

. Define  Boundary  Conditions  for  Baan/Plate  Vibrations 

♦daf/i  nnt  » < [nnx]*[nny]  > 

[xqt  TAB 
CON  1 

♦if  < <IFELSE( [cast] ;BAR; 1 ; 0)>  > /than 

. DEFINE  CLAMPED  BOUNDARY  CONDITIONS  for  LONGITUDINAL  VIBRATIONS 


ZERO  3,  4,  S : 1 , <nnt>  . Suppress  Out-of-Plane  DOFS  Everywhere 

ZERO  1,2, 3, 4, 5,6  . Clanp  left  boundary 

♦do  $n»l , «nnt>- [nnx]  ♦ 1> , [nnx] 

<$n> 

♦enddo 

♦elsaif  < <IFELSE( [case] ;BEAM;1;0)>  > /then 


. DEFINE  CLAMPED  BOUNDARY  CONDITIONS  for  INPLANE  VIBRATIONS 
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ZERO  1,  2,  0:  1,  <nnt>  . Suppress  In-Plans  DOPS  Everywhere 
ZEEO  1,2, 3,4, 6,0  . Clanp  lelt  boundary 

•do  9n=  1 , «nnt>-  [nnx]  ♦ 1> , [nnz] 

<tn> 

•enddo 

•elseif  < <IFELSE([ca»e];RING;l;0)>  > /then 


. DEFINE  BOUNDARY  CONDITIONS  for  EXTENSION!!,  and  FLEXURAL  VIBRATIONS 


ZERO  3,  4,  6:  1,  <nnt>  . Suppress  Out-of-Plane  DOFS  Everywhere 

SYMMETRY  PLANE  • 1 . Synnetry  at  theta  =90;  1/4  Model 

SYMMETRY  PLANE  = 2 . Synnetry  at  theta  = 0 

•endif 
•end 

•procedure  ¥IB_2D  ( cai*sBAR)  nass_type*CONSISTENT;ngrids=l ; grids=l ; 

L = 10.0  ; thickness  = .1  ; b = 1.0  ; — 

E = l.e7  ; wtden  * <5./6.>  ; 

N.aodes  = 6 ; print®  <false>  ; nnx =3  ; — 

shift =0.0  ; es_proc*ESl;  es_nane=EX97;  — 

DBC*¥IB_2D.DBC;  DBE=¥IB_2D.DBE  ) 

•if  < <IFELSE( [CASE] ;BiE; 1 ;0)>  > /then 
*def/d  thickness  * [thickness] 

•elseif  < <IFELSE( [CASE] ;BEAN; 1 ;0)>  > /then 
•def/d  thickness  = [thickness] 

•elseif  < <IFELSE( [CASE] ;E1NG ; 1 ;0)>  > /then 
*def/d  thickness  = < [thickness]  / 10.0  > 

•endif 

•def/i  grids [1 : [ngr ids]]  * [grids] 

*def/i  nnx [1 : [ngr ids]]  » [nnx] 

•do  $g  * 1 | [ngrids] 

•def/i  grid  ■ <grids [<#g>] > 

•def/i  nnxs  « <nnx[<lg>]> 

•call  ¥IB_2D_CTL  ( case  » [case];  aass.type  = [aass.type]  ; — 
es.proc  = [es.proc] ; es.naae  = [es.naae]  ; — 
nnx  = <nnxs>  ; thickness  = <thickness>  ; -- 
L = [L]  ; b=  [b]  ; — 

E = [E]  ; wtden  = [wtden]  ; — - 

N.aodes  = [N.aodes] ; prints  [print]  ; — 

shift® [shift]  ; — 

BBC® [DBC] ; DBE= [DBE]  ; — 
grid= <grid>  ) 

•enddo 

•end 


4.10.0  REFERENCES 
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5.0  Element  Assessment  Procedures 

The  procedures  documented  in  this  chapter  are  representative  of  the  types  of  procedures 
that  may  be  written  to  solve  specific  application  (structural  analysis)  problems.  Many  of 
these  high-level  procedures  invoke  other  (lower-level)  procedures  to  perform  preprocessing, 
solution,  and  postprocessing  functions;  which  are  described  elsewhere  in  this  manual.  The 
use  of  procedures  to  perform  structural  analysis  applications  can  provide  users  flexibility 
for  parameterizing  geometric  data  (e.y.,  stiffener  spacing)  as  well  as  spatial  discretization 
parameters  ( e.g .,  number  of  elements).  The  problems  represented  here  are  also  intended 
to  serve  as  part  of  a standard  series  of  test  problems  to  assess  new  structural  elements 
installed  in  the  CSM  Testbed. 

A summary  of  the  procedures  found  in  this  chapter  is  provided  by  Table  5.0-1. 
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Table  5.0-1.  Summary  of  Application  Procedures 

Procedure  Name 

Problem  Description 

DISTORTED  _PC 

Distorted-mesh  version  of  the  pinched_cyl  problem;  used 
to  study  mesh  distortion  sensitivity  of  shell  elements. 

MH.BEAM 

MacNeal-Harder  Beam  problems. 

MH_CYL 

MacNeal-Harder  Thick-Walled  Cylinder  Problem. 

MH.PLATE 

MacNeal-Harder  Plate  Problems. 

MH_SPHERE 

Linear  inextensional  bending  of  a hemispherical  shell 
loaded  by  point  forces.  Model  features  “warped”  quadri- 
lateral shell-element  (facet)  discretization. 

PATCH-TEST 

Patch  Test  Problems. 

SKEWED.GRID 

Plate  Buckling  Problem  with  Skewed  Grid. 
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5.1  Processor  DISTORTED _PC 
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5.2  Processor  DISTORTED JPC_3D 
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5.3  Procedure  MH-BEAMS 


5.3.1  GENERAL  DESCRIPTION 

5.3. 1.1  Problem  Description 

This  application  problem  solves  the  three  MacNeal/Harder  cantilever  beam  problems  - 
the  twisted  beam,  the  straight  beam,  and  the  curved  beam.  All  three  beams  are  solved 
with  4-  and  9-node  2-D  elements  and  8-,  20-,  and  32-node  3-D  elements. 


5.3. 1.2  Model  Description 

The  straight  cantilever  beam  problem  is  solved  using  three  element  shapes  - rectangular, 
trapezoidal,  and  parallelogram.  This  problem  tests  an  element’s  ability  to  handle  distorted 
meshes  under  various  types  of  loading.  It  is  clamped  on  one  end  and  free  at  the  other  end 
where  unit  loads  are  applied  in  four  directions  - extension,  torque,  in-plane,  and  out-of- 
plane. The  dimensions,  mesh,  and  material  properties  of  the  beam  are  given  in  Figure 

5.3-1. 


\ 

\ 
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E = 1.0  x 

. -7 

10  psi 

v = 0.30 

length 

= 6.0  inches 

h 

= 0.2  inches 

thickness 

= 0.1  inches 

mesh 

= 6X1 

Figure  5.3-1  MacNeal/Harder  Straight  Cantilever  Beam 


The  twisted  cantilever  beam  is  modeled  with  24  elements.  The  beam  is  clamped  on  one 
end  and  free  at  the  other.  It  is  twisted  through  90°  root  to  tip.  This  problem  tests  an 
element’s  ability  to  handle  warped  elements  (the  four  corners  of  the  element  do  not  lie  in 
the  same  plane).  Two  different  loading  conditions  are  applied  at  the  free  end  - in-plane 
unit  load,  and  out-of-plane  unit  load.  The  dimensions,  mesh,  and  material  properties  are 
shown  in  Figure  5.3-2. 
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E = 29.0  x 109  psi 
v = 0.22 


length 

width 

depth 

twist 

mesh 


12.0  inches 
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90°  (root  to  tip) 
12X2 


Figure  5.3-2  MacNeal/Harder  Twisted  Cantilever  Beam 


The  curved  cantilever  beam  is  modeled  with  six  elements.  It  is  clamped  on  one  end  and 
free  at  the  other  end,  where  unit  loads  are  applied.  The  beam  is  curved,  forming  a 90 
arc.  Two  loading  conditions  are  used  - in-plane  (vertical)  and  out-of-plane.  This  problem 
tests  an  element’s  ability  to  model  in-plane  curvature.  The  dimensions,  mesh,  and  material 
properties  are  shown  in  Figure  5.3-3. 
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Figure  5.3-3  MacNeal/Harder  Curved  Cantilever  Beam 
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5. 3. 1.3  Analysis  Description 

A static,  linear  elastic  analysis  is  performed,  for  any  or  all  of  the  three  problems.  If  the 
user  chooses,  displacements  at  the  point  of,  and  in  the  direction  of  the  load  are  calculated 
and  normalized  with  the  theoretical  results,  for  each  loading  condition. 


5.3. 1.4  Available  Solutions 


From  reference  5.3-1,  the  theoretical  solutions  for  the  tip  displacements  for  each  problem 
and  each  loading  condition  are  shown  in  Table  5.3-1. 


Load  Condition 

Tip  displacement  in  direction  of  load  (inches) 

Straight 

Curved 

Twisted 

Extension 

3.0  x 10~5 

- 

- 

In-plane 

.1081 

.08734 

.005424 

Out-of-plane 

.4321 

.5022 

.001754 

Twist 

.03208 

— 

— 

Table  5.3-1  Theoretical  tip  displacements  for  each  beam. 
5.3.2  PROCEDURE  USAGE 


Procedure  MH-BEAMS  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  MH-BEAMS  ( argl  = vail  ; arg2  = va!2  ; ...) 


where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 


The  allowable  arguments  for  procedure  MHJBEAMS  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Revised  5/23/90 


CSM  Testbed  Procedures  Manual 


5.3-  3 


MHJ3EAMS 


Element  Assessment  Procedures 


Argument 

Default  Value 

Meaning 

ES.PARS 

0. 

Element  research  parameters 

ES-PROC 

ESI 

Element  Processor 

ES-NAME 

EX47 

Element  name 

SPAR_DIM 

none 

2-D  or  3-D  SPAR  element 

DEL -LIB 

<false> 

Delete  libraries 

REPORT 

<trne> 

Generate  “report  card”  file 

STRAIGHT 

<true> 

Solve  straight  beam 

TWISTED 

<true> 

Solve  twisted  beam 

CURVED 

<true> 

Solve  curved  beam 

5.3.3  ARGUMENT  DESCRIPTIONS 

5. 3.3.1  ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

5. 3.3. 2 ES-PROC 

Element  processor  (default:  ESI).  This  is  the  name  of  the  element  processor  that  contains 
the  element  you  wish  to  evaluate  in  this  procedure.  If  a SPAR  element  is  used,  ES-PROC 
should  be  set  to  SPAR.  The  element  processors  are  described  in  The  Computational  Struc- 
tural Mechanics  Testbed  User’s  Manual. 

5.3.3. 3 ESJAME 

Element  name  (default:  EX47).  This  is  the  name  of  the  element  type  you  wish  to  select, 
within  the  element  processor  defined  by  argument  ESJPROC.  SPAR  or  ES  elements  may  be 
used.  The  elements  are  described  in  the  appropriate  section  in  the  The  Computational 
Structural  Mechanics  Testbed  User’s  Manual  (reference  5.3-2). 

5.3. 3.4  SPAR-DIM 

If  a SPAR  element  is  used,  this  parameter  must  be  set  to  the  number  of  dimensions  of  that 
element.  If  ES  elements  are  used,  this  parameter  need  not  be  set  at  all. 

5.3.3. 5 DEL-LIB 

Libraries  are  created  for  each  model— stbm.101  for  the  straight  beam,  cvbm.101  for  the 
curved  beam,  and  twbm.101  for  the  twisted  beam.  As  the  analysis  proceeds,  these  libraries 
will  automatically  be  deleted  if  DEL-LIB  is  <tni6>.  This  allows  disk  space  to  be  conserved 
if  the  analyst  does  not  need  the  libraries. 
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5.3. 3.0  REPORT 

Print  report  file  (default=<true>).  If  REPORT  is  <true>  an  external  file  named 
BEAM_<es_name> . <es_proc>  will  be  generated.  This  file  contains  the  normalized  radial 
displacements  of  the  nodes  at  the  inner  radius  of  the  cylinder. 

5.3.3. 7 STRAIGHT 

Solve  straight  beam  problem  (default:  <true>.  This  parameter  simply  indicates  whether 
the  straight  cantilever  beam  problem  is  to  be  solved  or  not. 

5.3.5.8  TWISTED 

Solve  twisted  beam  problem  (default:  <true>.  This  parameter  simply  indicates  whether 
the  twisted  cantilever  beam  problem  is  to  be  solved  or  not. 

5.3.3.0  CURVED 

Solve  curved  beam  problem  (default:  <true>.  This  parameter  simply  indicates  whether 
the  curved  cantilever  beam  problem  is  to  be  solved  or  not. 


5.3.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  MHJ3EAMS  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦procedure  MH.BEAMS  ( ES.HAME  = EI47 

ES.PROC  = ESI 
ES.PARS  = 0 
SPAR.DIM 

DEL  LIB  = <false> 
STRAIGHT  * <true> 
TWISTED  * <true> 
CURVED  * <true> 
REPORT  = <true> 


) 


(El)  To  perform  an  analysis  using  the  default  options,  simply  invoke  the  procedure  with- 
out any  arguments,  i.e., 


♦call  MH -BEAMS 


This  will  perform  a static,  linear  elastic  analysis  of  the  MH_BEAM  problems.  Since 
STRAIGHT,  CURVED,  and  TWISTED  are  <true>  and  all  three  will  be  solved.  Since 
REPORT  is  <true>  and  report  card  file  named  BEAMJEX47.ES1  will  be  generated 
containing  the  normalized  displacements  of  the  corner  nodes  at  the  free  end  of  the 
beanos,  Figure  5.3-4. 
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#«##««#***»*«««***********«#**»#«**********************************##### 
MACNEAL-HARDER  2-D  CANTILEVER  BEAM  PROBLEMS 
ELEMENT  NAME  - EX47 
ELEMENT  PROCESSOR  = ESI 

NORMALIZED  RESULTS  

*1*2  *3*4 

************************************************************************** 


in-plane 


out-of-plane 


torsion 


* extension 

* 

************************************************************************** 


* 

STRAIGHT  * 


rect 

♦ 

0.9955 

0.9036 

0.9801 

0.9096 

rect 

♦ 

0.9955 

0.9036 

0.9801 

0.9096 

trap 

* 

♦ 

0.7605 

0.4693 

0.7644 

2.2199 

trap 

★ 

0.7610 

0.4693 

0.7624 

-0.4299 

pari 

* 

* 

0.9660 

0.3306 

0.9379 

-0.1234 

pari 

* 

* 

0.9656 

0.3306 

0.9393 

1.8199 

TWISTED 

* 

* 

0.9849 

0.9941 

* 

0.9850 

0.9941 

* 

♦ 

0.9849 

0.9941 

CURVED 

♦ 

♦ 

0.9446 

0.9221 

* 

0.9446 

0.9484 

* 


###############################################»###»»##»«*###*########## 


Figure  5.3-3  Report  file  generated  using  default  arguments. 


(E2)  The  following  call  statement  will  solve  only  the  twisted  beam  problem  for  the  ele- 
ment EX08  in  processor  ES3. 

♦call  MH.BEAMS  ( ES.NAME  = EI08  ; — 

ES.PROC  = ES3  ; — 

DEL.LIB  = <true>  ; — 

STRAIGHT  = <false>  ; — 

CURVED  = <false>  ; — 

REPORT  = <true>  ) 


The  library  twbm.101  will  automatically  be  deleted.  The  report  file  BEAM-EX08.ES3  is 
generated,  Figure  5.3-5. 
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#############################**#########*»##*#*#«****#*#################### 
MACNEAL -HARDER  3-D  CANTILEVER  BEAN  PROBLEMS 
ELEMENT  NAME  = EX08 
ELEMENT  PROCESSOR  * ES3 

ELEMENT  PARAMETERS  = 0. 

NORMALIZED  RESULTS  

*1*2  *3*4 


************************************************************************** 


* * * * 

* extension  in-plane  out-of-plane  torsion 

* 

************************************************************************** 

* 


* 

TWISTED  * 
* 
* 
* 
* 
* 


0.9907 

0.9907 

0.9907 

0.9907 

0.9907 

0.9907 


0.9880 

0.9880 

0.9881 

0.9881 

0.9880 

0.9880 


#*###*#***$$#****#*#****#*******************#****************#***#***##*#** 


Figure  5.3-5  BEAM-EX08.ES3  resulting  from  the  calling  statement  (E2). 


(E3)  The  following  call  statement  will  solve  the  straight  and  twisted  cantilever  beam 
problems  for  the  SPAR  E43  element  and  generate  the  report  file  BEAM-E43.SPAR. 

♦call  MH.BEAMS  ( ES.NAME  = E43  ; — 

ES.PROC  = SPAR  ; — 

SPAR.DIM  * 2 ; — 

CURVED  = <false>  ; — 

REPORT  = <true>  ) 


5.3.5  LIMITATIONS 

(LI)  This  procedure  can  only  evaluate  4-  and  9-node  2-D  elements,  and  8-  and  20-node 
solid  elements. 

5.3.0  ERROR  MESSAGES  AND  WARNINGS 

If  a SPAR  element  is  used,  and  the  argument  SPAR_DIM  is  not  set,  the  following  error 
message  will  be  printed  and  execution  terminated. 

The  argument  SPAR_DIM  must  be  defined  as  2 or  3 when 
using  SPAR  elements. 

Please  set  this  argument  and  rerun. 


Revised  5/23/90 


CSM  Testbed  Procedures  Manual 


5.3-  7 


MH.BEAMS 


Element  Assessment  Procedures 


5.3.7  PROCEDURE  FLOWCHART 


5.3.8  PROCEDURE  LISTING 


5.3.9  REFERENCES 

5.3- 1  MacNeal,  R.  H.;  and  Harder,  R.  L.:  “A  Proposed  Set  of  Problems  to  Test  Finite 

Element  Accuracy,”  Finite  Elements  in  Analysis  and  Design , Vol.  1, 1985,  pp.  3-20. 

5.3- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 
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5.4  Procedure  MH_CYL 

5.4.1  GENERAL  DESCRIPTION 

5.4. 1.1  Problem  Description 

This  application  problem  is  another  of  the  MacNeal/Harder  Standard  Test  Problems.  The 
thick-walled  cylinder  problem  is  used  to  test  an  element’s  ability  to  handle  a nearly  in- 
compressible material.  As  Poisson’s  ratio  approaches  0.5,  singularities  may  arise  in  the 
stiffness  matrix  as  a result  of  dividing  by  (l-2u).  Rubber,  perhaps  the  most  common 
nearly  incompressible  material,  is  sometimes  used  in  structural  components. 

5.4. 1.2  Model  Description 

A 10°  of  the  thick-walled  cylinder,  inner  radius  = 6 inches,  outer  radius  = 9 inches, 
is  modeled  with  only  five  elements  as  is  shown  in  Figure  5.4-1.  The  thickness  of  this 
cross  section  is  unity.  Constraints  are  applied  to  all  nodes  so  as  to  allow  only  radial 
displacements. 

Either  plate  elements  (2-D)  or  solid  elements  (3-D)  may  be  used  in  this  procedure.  The 
2-D  elements  may  be  either  the  4-  or  9-node  variety  and  the  3-D  elements  may  be  either 
8-  or  20-node  elements. 

The  cylinder  is  loaded  with  a unit  pressure  at  the  inner  radius.  This  pressure  is  applied 
as  a total  force  of  .5236  lbs.  distributed  consistently  on  the  nodes  at  the  inner  radius  of 
the  model,  as  is  shown  in  Figure  5.4-2.  Three  sets  of  material  properties  are  used  in  the 
analysis.  Young’s  Modulus  for  all  three  is  1000.0  lb/in2,  but  Poisson’s  ratio  is  allowed  to 
approach  0.5  by  assuming  the  three  values  .49,  .499,  and  .4999. 


Figure  5.4-1  MacNeal/Harder  Thick- Walled  Cylinder 
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5.4. 1.3  Analysis  Description 

A static,  linear  elastic  analysis  is  performed.  The  radial  displacements  of  the  nodes  at  the 
inner  radius  are  compared  to  theoretical  displacements,  and  normalized  results  arc  printed. 


5.4. 1.4  Available  Solutions 


From  reference  5.4-1,  the  exact  solution  for  the  radial  displacement  is: 

( l + u)PR] 


tt(r)  = 


E(R\  - R\) 


fi+d 

r 


2u)r 


where  Ri  is  the  inner  radius,  R2  is  the  outer  radius,  P is  the  applied  pressure,  and  r is  the 
variable  radial  position.  Evaluating  this  expression  at  the  inner  radius  (r  = 3.0)  for  each 
value  of  v yields  the  theoretical  results  in  Table  5.4-1. 


Table  4.5-1 

Poisson’s  Ratio 

Radial  displacement  at  inner  radius  (inches) 

5.0399  x 10~3 

mmmmm 

5.0602  x 10“3 

5.0623  x 10“3 

5.4.2  PROCEDURE  USAGE 

Procedure  MH-CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  MH-CYL  ( argl  * vail  ; arg2  « val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  MH_CYL  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  axe 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  ture  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES.PR0C 

ESI 

Element  Processor 

ES.NAME 

EX47 

Element  name 

ES-PARS 

0. 

Element  research  parameters 

SPAR-DIM 

none 

2-D  or  3-D  SPAR  element 

REPORT 

<true> 

Generate  “report  card”  file 
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5.4.3  ARGUMENT  DESCRIPTIONS 

5.4.3. 1  ESJAME 

Element  name  (default:  EX47).  This  is  the  name  of  the  element  type  you  wish  to  select, 
within  the  element  processor  defined  by  argument  ES_PR0C.  SPAR  or  ES  elements  may  be 
used.  The  elements  are  described  in  the  appropriate  section  in  the  The  Computational 
Structural  Mechanics  Testbed  User’s  Manual  (reference  5.4-2). 


5.4. 3. 2 ES-PROC 

Element  processor  (default:  ESI).  This  is  the  name  of  the  element  processor  that  contains 
the  element  you  wish  to  evaluate  in  this  procedure.  If  a SPAR  element  is  used,  ES_PROC 
should  be  set  to  SPAR.  The  element  processors  are  described  in  The  Computational  Struc- 
tural Mechanics  Testbed  User’s  Manual. 

5.4.3.3  ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

5.4.3. 4 SPAR-DIM 

If  a SPAR  element  is  used,  this  parameter  must  be  set  to  the  number  of  dimensions  of  that 
element.  If  ES  elements  are  used,  this  parameter  need  not  be  set  at  all. 


5.4. 3. 5  REPORT 

Print  report  file  (default=<trne>).  If  REPORT  is  <true>  an  external  file  named 
CYL_<es_name> . <es_proc>  will  be  generated.  This  file  contains  the  normalized  radial 
displacements  of  the  nodes  at  the  inner  radius  of  the  cylinder. 
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5.4.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  MH.CYL  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦procedure  MH_CYL  ( ES_NAME  = EX47  ; 

ES.PROC  = ESI  ; — 

ES.P1RS  =0  ; — 

SPAR.DIM  ; — 

REPORT  = <true>  ) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  i.e., 

♦call  MH_CYL 


This  will  perform  a static,  linear  elastic  analysis  of  the  MacNeal/Harder  thick- 
walled  cylinder  problem  using  the  EX47  element  in  processor  ESI.  Results  will  be 
given  for  all  three  values  of  Poisson’s  Ratio.  The  datasets  will  be  written  into  a 
library  called  MH-CYL.L01,  and  the  “report  card”  file  named  CYL_EX47.ES1  will  be 
generated,  Figure  5.4-3. 


#########################*»#«*#*############################ 
MACNEAL-HARDER  2-D  THICK-WALLED  CYLINDER 

ELEMENT  NAME  * EX47 
ELEMENT  PROCESSOR  * ESI 

****************♦♦♦♦♦♦♦♦♦♦**♦♦*♦*♦***♦********************** 


* 

Poisson’s  * 

ratio  ♦ 


Normalized  displacements 
at  inner  radius 


♦ 


* 


.49 

♦ 

1.0054 

* 

1.0054 

♦ 

.499 

♦ 

1.0063 

* 

1.0063 

* 

.4999 

* 

1.0063 

♦ 

1.0063 

#############################«#####*####################### 

############################**##*####«###################### 


Figure  5.4-3  “Report  Card”  using  default  arguments. 
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(E2)  To  perform  an  entire  analysis  using  an  ES  element,  invoke  the  procedure  with  the 
appropriate  arguments,  t.e. 

♦call  MH.CYL  ( ES.HAME  * BR20  ; — 

ES.PROC  = ES10  ; — 

es.pars  » 3,  3 ; " 

REPORT  * <trne>  ) 

This  will  perform  a static  linear  elastic  analysis  using  the  BR20  element,  a 20-node 
brick  element  located  in  processor  ES10.  A report  file  will  be  generated  named 
CYL-BR20.ES10. 

(E3)  To  perform  the  analysis  using  a SPAR  element,  invoke  the  procedure  using  the 
appropriate  arguments  as  follows: 

♦call  MH.CYL  ( ES.HAME  » E43  ; — 

ES.PROC  = SPAR  ; — 

SPAR.DIM  * 2 J — 

REPORT  * <true>  ) 

This  will  perform  the  analysis  using  the  SPAR  E43  element  and  generate  the  “report 
card”  file  named  CYLJE43 . SPAR.  Note  that  the  argument  SPAR-DIM  must  be  defined 
when  using  a SPAR  element. 


5.4.5  LIMITATIONS 

(LI)  This  procedure  can  only  evaluate  4-  and  9-node  2-D  elements,  and  8-,  20-,  and 
32-node  solid  elements. 


5.4.0  ERROR  MESSAGES  AND  WARNINGS 

If  a SPAR  element  is  used,  and  the  argument  SPAR-DIM  is  not  set,  the  following  error 
message  will  be  printed  and  execution  terminated. 

The  argument  SPAR.DIM  must  be  defined  as  2 or  3 when 
using  SPAR  elements. 

Please  set  this  argument  and  rerun. 


5.4.7  PROCEDURE  FLOWCHART 

5.4.8  PROCEDURE  LISTING 
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5.5  Procedure  MH.PATCH 

5.5.1  GENERAL  DESCRIPTION 

5.5.1.1  Problem  Description 

This  application  problem  is  another  of  the  MacNeal/Harder  Standard  Test  Problems.  The 
patch  test  is  used  to  test  an  element’s  ability  to  handle  a state  of  constant  strain  with  a 
distorted  grid.  This  is  a necessary  condition  to  guarantee  convergence  of  the  solution. 

5.5. 1.2  Model  Description 

The  patch  test  is  modeled  for  both  2-D  and  3-D  elements.  The  2-D  model  consists  of  5 
distorted  quadrilateral  elements  forming  a .24  by  .12  inch  rectangular  plate  of  thickness  one 
inch,  Figure  5.5-1.  The  3-D  model  consists  of  seven  distorted  hexagonal  elements  forming  a 
one  inch  cube,  Figure  5.5-2.  Element  corner  node  locations  for  both  the  2-D  and  3-D  model 
are  shown  in  Table  5.5-1.  For  all  higher  order  elements  (2-D  - 9-node  and  3-D  20-  and  32- 
node)  the  midedge  nodes  are  placed  equidistant  from  the  corner  nodes.  However,  for  the 
2-D  9-node  model,  a parameter  called  TWEEK  has  been  added  to  allow  the  elements  to 
have  curved  sides.  See  section  5.5.3  for  details.  The  2-D  patch  test  is  actually  two  separate 
tests,  the  membrane  patch  test,  and  the  bending  patch  test.  However,  the  bending  patch 
test  is  not  currently  implemented. 

In  the  membrane  patch  test,  displacements  are  applied  according  to  the  following  formulas: 

u = 10-3(a:  + y/2)  in. 
v = 10_3(y  + x/2)  in. 

yielding  a state  of  constant  strain. 

For  the  bending  patch  test: 

w = 10_3(x2  + xy  + y2)/2  in. 

*,  = ^ = 10-3(y  + */2) 

9V  = ~ = 1(r3(-*  - y/2) 

yielding  a state  of  constant  curvature. 

A state  of  constant  strain  is  applied  to  the  3-D  model  according  to  the  formulas: 

it  = 10-3(2x  +y+  z)/2  in. 
v = 10_3(x  + 2y  + z)/2  in. 
w = 10_3(x  + y + 2z)/2  in. 
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a)  2-D  model  b)  3-D  model 

Figure  5.5-1  MacNeal/Harder  Patch  Test 


Ibble  5.5-1  Element  Corner  Node  Locations 


A static,  Unear  elastic  analysis  is  performed.  Stresses  are  calculated  and  printed,  as  is 
specified  by  the  user,  at  the  integration  points,  centroids,  and/or  nodes.  See  section  5.5.2 

for  details. 
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5. 5. 1.4  Available  Solutions 

From  reference  5.5-1,  the  exact  solutions  are  as  follows: 
2-D  Membrane  Patch  Test 


€x  — — 7*1/  — 10 

(Tjg  — &y  — 1333  pit 
rxy  = 400  pat 


2-D  Bending  Patch  Test 


Mt  = My  = 1.111  x 10"7  in.lb. 
Mxy  = 10-7  in.lb. 
crx  = <rv  — ±.667  psi 
rxy  = ±.200  psi 

3-D  Solid  Patch  Test 

ex  = ey  = ez  = jxv  = jyz  = 7**  = 1°-3 
x = ay  = <rz  = 2000  psi 
TXy  — Tyz  — TXZ  — 400  PSI 


5.5.2  PROCEDURE  USAGE 

Procedure  MH_PATCH  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  MH-PATCH  ( argl  = vail  ; arg2  = va!2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  (— ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  MH-PATCH  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 
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Argument 

Default  Value  Meaning 

ES.PR0C 

ESI 

Element  Processor 

ES -NAME 

EX47 

Element  name 

ES-PARS 

0. 

Element  research  parameters 

SPAR-DIM 

none 

2-D  or  3-D  SPAR  element 

REPORT 

<true> 

Generate  “report  card”  file 

STRJtLL 

<true> 

Compute  stresses  at  nodes,  integration  points,  and  centroids 

STR-NODES 

<false> 

Compute  stress  at  nodes 

STR-INTPTS 

<false> 

Compute  stress  at  integration  points 

STR-CEHTS 

<false> 

Compute  stress  at  centroids 

TVEEK 

0,0, 0,0 

Move  midside  nodes  print  stresses 

DISPLAY 

1 

Print  stresses 

NODES 

1 

Stresses  at  nodes  and  centroids 

CROSS 

1 

Stresses  at  top,  mid,  and  bottom  surfaces 

5.5.3  ARGUMENT  DESCRIPTIONS 

5.5.3.1  ES.NAME 

Element  name  (default=EX47).  This  is  the  name  of  the  element  type  you  wish  to  select, 
within  the  element  processor  defined  by  argument  ES-PROC.  SPAR  or  ES  elements  may  be 
used.  The  elements  are  described  in  the  appropriate  section  in  the  The  Computational 
Structural  Mechanics  Testbed  User’s  Manual  (reference  5.5-2). 

5. 5. 3. 2 ESJPROC 

Element  processor  (default =ESl).  This  is  the  name  of  the  element  processor  that  contains 
the  element  you  wish  to  evaluate  in  this  procedure.  If  a SPAR  element  is  used,  ES_PR0C 
should  be  set  to  SPAR.  The  element  processors  are  described  in  The  Computational  Struc- 
tural Mechanics  Testbed  User’s  Manual. 

5. 5.3.3  ES-PARS 

Element  research  parameters  (default=0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

5. 5.3. 4 SPAR-DIM 

Number  of  dimensions  of  SPAR  element  (default =none).  If  a SPAR  element  is  used,  this 
parameter  must  be  set  to  the  number  of  dimensions  of  that  element.  If  ES  elements  are 
used,  this  parameter  need  not  be  set  at  all. 

5.5.5.5  REPORT 

Print  report  file  (default=<true>).  If  REPORT  is  <true>  an  external  file  named 
CYL_<es_name> . <es_proc>  will  be  generated.  This  file  contains  the  normalized  radial 
displacements  of  the  nodes  at  the  inner  radius  of  the  cylinder. 
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5. 5.3.6  STR-ALL 

(default=<true>).  If  <true>  stresses  will  be  calculated  at  the  element  nodes,  centroids, 
and  integration  points.  If  REPORT  is  <trae>,  stress  values  at  all  three  locations  will  be 
printed  in  the  report  file. 

5. 5.3. 7 STR-HODES 

(default=<false>).  By  setting  this  argument  to  <true>,  STR-ALL  will  be  automatically 
reset  to  <f  alse>,  and  stresses  will  be  calculated  only  at  the  nodes.  If  REPORT  is  <true>, 
stress  values  at  the  nodes  will  be  printed  in  the  report  file. 

5.5.3.8  STR-INTPTS 

(default=<f  alse>).  By  setting  this  argument  to  <true>,  STR-ALL  will  be  automatically 
reset  to  <f  alse>,  and  stresses  will  be  calculated  only  at  the  integration  points.  If  REPORT 
is  <true>,  stress  values  at  the  integration  points  will  be  printed  in  the  report  file. 

5.5.3. 0 STR-CENTS 

(default=<false>).  By  setting  this  argument  to  <true>,  STR_ALL  will  be  automatically 
reset  to  <false>,  and  stresses  will  be  calculated  only  at  the  centroids.  If  REPORT  is 
<tme>,  stress  values  at  the  centroids  will  be  printed  in  the  report  file. 

5.5.3.10  TVEEK 

(default=0.,  0.,  0.,  0 . ).  The  TWEEK  parameters  are  used  to  offset  the  midside  nodes 
on  9-node  2-D  elements.  This  allows  the  user  to  test  an  element’s  sensitivity  to  curved 
edges.  There  are  four  TWEEK  parameters  that  one  separated  by  commas,  with  the 
location  and  positive  direction  shown  in  Figure  5.5-3.  = 

5.5.3.11  DISPLAY 

(default=l).  For  SPAR  elements  only.  For  the  various  values  of  DISPLAY,  the  following 
will  be  printed  in  the  report  file: 

For  two-dimensional  elements, 

If  DISPLAY  =1,  stresses 

= 2,  membrane  stress  resultants 
= 3,  bending  stress  resultants 

For  three-dimensional  solids  (S41,  S61,  S81), 

= 1,  x,  y,  z stress  components 

relative  to  the  element  reference  frame 
= 2,  principal  stresses 
= 3,  octahedral  normal  stress  (ONS), 
octahedral  shear  stress  (OSS), 
stress  intensity  (SI), 
and  yield  stress  ratio  (YSR) 

= 4,  display  of  5**/Y*x, Syy /^Vv> Szz  /Yzz 
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5.5.3.12  MODES 

(default=l).  For  SPAR  elements  only.  This  parameter  controls  whether  results  will  be 
printed  for  the  element  centroids  or  the  nodes  as  follows: 

If  NODES  =0,  restrict  printout  to  element  center 

= 1,  printout  for  each  node  and  element  center 

5.5.3.13  CROSS 

(defaults  1).  For  SPAR  elements  only.  This  parameter  controls  whether  results  are  printed 
for  the  element  mid-surface  of  top,  mid  and  bottom  surfaces  as  follows: 

If  CROSS  = 0,  restrict  printout  to  mid-surface  stresses 

= 1,  printout  for  top,  mid,  and  bottom  surface  stresses 

Note:  The  parameters  DISPLAY,  NODES  and  CROSS  are  actually  resets  to  processor 
PSF.  See  section  12.2  in  reference  5.5-2  for  details. 


Figure  5.5-2  Location  and  positive  direction  of  TWEEK  parameters 
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5.5.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  MH_PATCH  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  ail  of 
the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦procedure  MH.PATCH  ( ES.NAME  = EX47 

ES.PROC  » ESI 
ES.PARS  * 0 
SPAR.DIM 

STR_ALL  = <true> 
STR.NODES  = <false> 
STR.INTPTS  = <false> 
STR.CENTS  » <false> 
DISPLAY  * 1 
NODES  - 1 
CROSS  = 1 

TWEEK  = 0. , 0. , 0. , 0. 
REPORT  = <true> 


(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  ».e., 


♦call  MH.PATCH 


This  will  perform  a static,  linear  elastic  analysis  of  the  MacNeal/Harder  patch  test 
using  the  EX47  element  in  processor  ESI.  Stresses  will  be  calculated  at  nodes, 
centroids,  and  integration  points  and  the  results  will  be  printed  to  a file  named 
PATCH.EX47.ES1.  The  datasets  will  be  written  to  a library  named  patch.101. 

(E2)  To  perform  an  analysis  using  the  BR08  element  in  processor  ES10  and  generating 
stresses  only  at  the  integration  points: 

♦call  MH.PATCH  ( ES.NAME  = EX43  ; — 

ES.PROC  = ES4  ; 

STR.NODES  = <true>  ; — 

REPORT  = <true>  ) 

The  report  file  named  PATCHJBR08.ES10  will  be  generated  containing  the  stresses 
at  the  element  integration  points  only,  Figure  5.5-3. 

(E3)  To  perform  an  analysis  using  a SPAR  element,  invoke  the  procedure  using  the 
appropriate  arguments  as  follows: 

♦call  MH.PATCH  ( ES.NAME 
ES.PROC  * SPAR 
SPAR.DIM  = 2 
DISPLAY  * 1 
NODES  * 0 
CROSS  * 0 
REPORT  * <true> 
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The  report  file  PATCH.E43.SPAR  will  be  generated  containing  stresses  (display=l) 
at  the  element  centroid  midsurface  (nodes=0,  cross=0).  See  reference  5.5-2,  section 
12.2  for  further  information  about  the  parameters  display,  nodes,  and  cross  (they 
are  actually  resets  to  processor  PSF).  Note  that  SPAR-DIM  must  be  defined  when 
using  a SPAR  element. 

*#*****»***##*##*#*##***###«#*##*#«#*****«*****#*#********** 
############################################################ 
MACNEAL-HARDER  2-D  PATCH  TEST 
ELEMENT  NAME  = EX43 
ELEMENT  PROCESSOR  * ES4 

ELEMENT  PARAMATERS=  0 

i************************************************************ 

**  BEGIN  PESR  **  DATA  SPACE*  2000000  WORDS 


ELEMENT  EX43/  LOAD  CASE 


1/ 


GLOBAL  REFERENCE  FRAME 


GROUP 

ELEM 

LOCATION 

NX 

NY 

NXY 

0 

1 

1 

IN 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

2N 

1 . 333333E+00 

1.333333E+00 

4.000000E-01 

4N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

3N 

1.333333E+00 

1.333333E+00 

4.000000E-01 

0 

1 

2 

2N 

1 . 333333E+00 

1.333333E+00 

4.000000E-01 

5N 

1.333333E+00 

1 . 333333E+00 

4.000000E-01 

6N 

1.333333E+00 

1 . 333333E+00 

4.000000E-01 

4N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

0 

1 

3 

5N 

1.333333E+00 

1 . 333333E+00 

4.000000E-01 

7N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

8N 

1.333333E+00 

1 . 333333E+00 

4.000000E-01 

6N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

0 

1 

4 

7N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

IN 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

3N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

8N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

0 

1 

5 

3N 

1 . 333333E+00 

1.333333E+00 

4 . 000000E-01 

4N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

6N 

1 . 333333E+00 

1 . 333333E+00 

4.000000E-01 

8N 

1.333333E+00 

1 . 333333E+00 

4 . 000000E-01 

EXIT 

PESR 

CPUTIME* 

0.6  I/0(DIR,BUF)=  0 

0 

#####################*»*»*»*********»*********************** 

############################################################ 


Figure  5.5-3  “Report  Card”  using  EX43  in  ES4. 


5.5.5  LIMITATIONS 

(LI)  This  procedure  can  only  evaluate  4-  and  9-node  2-D  elements,  and  8-,  20-,  and 
32-node  solid  elements. 

(L2)  Currently  only  the  2-D  membrane  patch  test  and  the  3-D  test  are  operational. 
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5.5.8  ERROR  MESSAGES  AND  WARNINGS 

If  a SPAR  element  is  used,  and  the  argument  SPAR  JIM  is  not  set,  the  following  error 
message  will  he  printed  and  execution  terminated. 

The  argument  SPAR_DIM  must  be  defined  as  2 or  3 when 
using  SPAR  elements. 

Please  set  this  argument  and  rerun. 

5.5.7  PROCEDURE  FLOWCHART 


5.5.8  PROCEDURE  LISTING 


5.5.9  REFERENCES 

5.5- 1  MacNeal,  R.  H.;  and  Harder,  R.  L.:  “A  Proposed  Set  of  Problems  to  Test  Finite 

Element  Accuracy,”  Finite  Elements  in  Analysis  and  Design , Vol.  1, 1985,  pp.  3-20. 

5.5- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 
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5.6  Procedure  MHJPLATE 

5.0.1  GENERAL  DESCRIPTION 


5.6. 1.1  Problem  Description 

This  application  problem  is  another  of  the  MacNeal/Harder  Standard  Test  Problems.  The 
plate  problem  tests  an  element’s  ability  to  handle  aspect  ratio,  thinness,  and  various  types 
of  loading  and  boundary  conditions.  The  problem  can  be  solved  with  4-  or  9-node  2-D 
elements  or  8-node  3-D  elements. 


5.6.1. 2 Model  Description 

Due  to  the  symmetry  of  the  physical  problem  a quarter  model  is  used.  Symmetry  boundary 
conditions  are  applied  at  x=0  and  y=0.  At  x=a  and  y-b  two  different  boundary  conditions 
are  used  — simply  supported  and  clamped.  Two  different  types  of  loading  are  applied  - a 
central  point  load  of  P = 4.0  x 10-4  lbs.  and  a uniform  pressure  of  q = 10-4  psi.  The 
value  of  a is  1.0  in.,  but,  in  order  to  test  an  element’s  sensitivity  to  aspect  ratio,  b has  two 
values,  1.0  in.  and  5.0  in.  The  quarter  plate  is  modeled  with  N x N elements.  A mesh 
convergence  study  is  done,  with  N taking  the  value  in  Table  5.6-1.  The  two  values  of  b 
gives  element  aspect  ratios  of  1 and  5.  A typical  model  with  N — 4,  material  properties, 
and  dimensions  are  shown  in  Figure  5.6-1. 


E a 1.7472  x 107  psi 
V = 0.30 

a = 1.0  inches 

b a 1.0  or  5.0  inches 

thickness  a 0.0001  inches  ( 2-0  elements) 
s 0.01  inches  ( 3-0  elements) 
mesh  a NXN  (on  ^ of  plate ) 

Figure  5.0-1  Typical  plate  model,  N = 4 
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2-D  Model 

3-D  Model 

4-node 

9-node 

8-node 

20-node 

N = 

2 

2 

2 

2 

4 

4 

4 

4 

6 

6 

6 

6 

8 

8 

Table  5.0-1  Values  of  N for  different  element  types 


5.6. 1.3  Analysis  Description 

A static,  linear  elastic  analysis  is  performed  for  each  of  the  eight  possible  combinations  of 
aspect  ratio,  loading,  and  boundary  condition.  Libraries  named  pl<aspect>_<grid>.101  are 
created,  where  <aspect>  is  aspect  ratio  and  <grid>  is  N,  the  mesh  size.  As  the  analysis 
proceeds,  these  libraries  may  be  deleted  by  setting  the  argument  DEL. LIB  is  <true>.  If 
the  argument  REPORT  is  <true>,  the  normalized  midplate  displacements  will  be  printed 
in  an  external  “report  file”  named  PLATE_<es_name>.<es_proc>,  where  <es_name>  is  the 
element  name  and  <es_proc>  is  the  element  processor. 

5.6. 1.4  Available  Solutions 


Prom  reference  5.6-1,  the  exact  solutions  for  the  mid-plate  displacement  in  the  direction 
of  the  load  for  each  boundary  condition,  load  type,  and  aspect  ratio  are  shown  in  Table 
5.6-2. 


Boundary 

Condition 

Aspect 
Ratio  b/a 

Mid-plate  displacement  (inches) 

Uniform  Pressure 

Point  Load 

Simple 

1.0 

4.062 

11.60 

5.0 

12.97 

16.96 

Clamped 

1.0 

1.26 

5.60 

5.0 

2.56 

7.23 

Table  5.6-2  Theoretical  tip  displacements  for  each  beam. 


5.6.2  PROCEDURE  USAGE 

Procedure  MH.PLATE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  MH.PLATE  ( argl  = vail  ; arg2  = val2  ; ...) 
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where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  tbeir  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  MH_PLATE  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES-PARS 

0. 

Element  research  parameters 

ES_PR0C 

ESI 

Element  Processor 

ESJIAME 

EX47 

Element  name 

SPARJDIM 

none 

2-D  or  3-D  SPAR  element 

DEL-LIB 

<false> 

Delete  libraries 

REPORT 

<true> 

Generate  “report  card”  file 

5.0. 3  ARGUMENT  DESCRIPTIONS 

5.6.3. 1 ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

5.6.3. 2 ES-PROC 

Element  processor  (default:  ESI).  This  is  the  name  of  the  element  processor  that  contains 
the  element  you  wish  to  evaluate  in  this  procedure.  If  a SPAR  element  is  used,  ES-PROC 
should  be  set  to  SPAR.  The  element  processors  are  described  in  The  Computational  Struc- 
tural Mechanics  Testbed  User’s  Manual. 

5.6.3.S  ESJfAME 

Element  name  (default:  EI47).  This  is  the  name  of  the  element  type  you  wish  to  select, 
within  the  element  processor  defined  by  argument  ES_PR0C.  SPAR  or  ES  elements  may  be 
used.  The  elements  are  described  in  the  appropriate  section  in  the  The  Computational 
Structural  Mechanics  Testbed  User’s  Manual  (reference  5.6-2). 

5.6. 3.4  SPAR-DIM 

If  a SPAR  element  is  used,  this  parameter  must  be  set  to  the  number  of  dimensions  of  that 
element.  If  ES  elements  are  used,  this  parameter  need  not  be  set  at  all. 

5.0. 3. 5 DEL-LIB 

As  the  mesh  convergence  study  proceeds,  DEL-LIB  determines  whether  or  not  the  individual 
libraries  for  each  N will  be  deleted.  This  allows  disk  space  to  be  conserved  if  the  analyst 
does  not  need  the  libraries. 
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5.6. 3.6  REPORT 

Print  report  file  (default=<true>).  If  REPORT  is  <true>  an  external  file  named 
PLATE_<es _name> . <«s_proc>  will  be  generated.  This  file  contains  the  normalized  radial 
displacements  of  the  nodes  at  the  inner  radius  of  the  cylinder. 


5.6.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  MH_PLATE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦procedure  MH_PLATE  ( ES_NAME  = EX47 

ES.PROC  = ESI 
ES.PARS  = 0 
SPAR.DIM 

DEL_LIB  = <false> 
REPORT  * <true> 


) 


(El)  To  perform  an  analysis  using  the  default  options,  simply  invoke  the  procedure  with- 
out any  arguments,  t’.e., 


♦call  MH -PLATE 

This  will  perform  a static,  linear  elastic,  analysis  of  the  MH-PLATE  problem.  The 
normalized  mid-plate  displacements  for  all  combinations  of  loading,  boundary 
conditions,  and  aspect  ratio  will  be  calculated  and  printed  in  the  report  file 
named  PLATE-EX47.ES1,  Figure  5.6-2.  Eight  libraries  named  pll_2.101,  pll-4.101, 
pll_6.101,  pll-8.101,  pl5_2.101,  pl5_4.101,  pl5_6.101,  and  pl5_8.101  will  be  generated. 
In  a library  named  pi  A JV. 101,  A is  the  aspect  ratio  and  N is  the  mesh.  These  eight 
libraries  will  not  be  deleted  as  the  analysis  proceeds,  because  the  default  value  of 
DEL.LIB  is  <false>. 


######################################################################## 
MACNEAL-HARDER  2-D  RECTANGULAR  PLATE  PROBLEM 
ELEMENT  NAME  = EX47 
ELEMENT  PROCESSOR  = ESI 

ELEMENT  PARAMATERS  = 0 

NORMALIZED  RESULTS  

**************************************************************** ********** 


* 

* 

* 


* 

* 


* 

* 


ASPECT  RATIO  = 1 


********** ********************************* ******************************* 


CENTRAL  POINT  LOAD 


* 

* 


DISTRIBUTED  LOAD 


************************************************************************** 


clamped 


* 

* 


simply 


* 

* 


clamped 


* 

* 


simply 


* 

* 
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* * supported  * * supported  * 

************************************************************************** 

★ * 

* 
* 
* 
* 
* 
* 
* 

* * 

************************************************************************** 

* 

* ASPECT  RATIO  = 5 

* 

************************************************************************** 


MESH-2 

* 

0.8811 

1.0042 

0.9790 

0.9866 

MESH-4 

* 

* 

0.9706 

0.9979 

0.9969 

0.9972 

MESH=6 

* 

* 

0.9876 

0.9986 

1.0009 

0.9988 

MESH-8 

* 

* 

0.9936 

0.9991 

1.0024 

0.9994 

* 

* 


CENTRAL  POINT  LOAD 


DISTRIBUTED  LOAD 


************************************************************************** 


clamped 


simply  * clamped 
supported  * 


* * 

* simply  * 

* supported  * 


********************************************************** **************** 


MESH-2 

* 

0.3189 

0.8904 

1.1257 

0.9543 

MESH-4 

* 

* 

0.8414 

0.9417 

0.9777 

0.9779 

MESH-6 

* 

* 

0.9222 

0.9701 

0.9890 

0.9903 

MESH-8 

* 

* 

0.9537 

0.9817 

1.0012 

0.9946 

* 

* 

* 

* 

* 

* 

* 

* 

* 


###############################################################*######## 
Figure  5,6-2  Report  file  generated  using  default  arguments. 


(E2)  To  solve  the  MacNeal/Harder  Plate  problem  with  element  E410  in  processor  ES5, 
deleting  the  libraries  as  the  analysis  proceeds,  use  the  following  call  statement. 

♦call  MH.PLATE  ( ES.NANE  = E410  ; — 

ES.PROC  = ESS  ; — 

DEL.LIB  = <true>  ; — 

REPORT  = <true>  ) 

(E3)  To  perform  the  analysis  using  a SPAR  element,  invoke  the  procedure  with  the 
appropriate  element  name  and  SPAR  for  the  processor.  The  argument  SPARJDIM 
must  be  defined  when  using  a SPAR  element.  The  libraries  will  be  deleted  as  the 
analysis  proceeds. 

♦call  MHJPLATE  ( ES.NAME  = E43  ; — 

ES.PROC  = SPAR  ; — 

SPAR.DIM  =2  ; — 

DEL. LIB  = <true>  ; — 
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REPORT  * <true>  ) 


5.0. 5  LIMITATIONS 

(LI)  This  procedure  can  only  evaluate  4-  and  9-node  2-D  elements,  and  8-node  solid 
elements. 

5.6.0  ERROR  MESSAGES  AND  WARNINGS 

If  a SPAR  element  is  used,  and  the  argument  SPAR-DIM  is  not  set,  the  following  error 
message  will  be  printed  and  execution  terminated. 

The  argument  SPAR_DIM  must  be  defined  as  2 or  3 vhen 
using  SPAR  elements. 

Please  set  this  argument  and  rerun. 

5.0. 7  PROCEDURE  FLOWCHART 


5.0.8  PROCEDURE  LISTING 


5.0.9  REFERENCES 

5.6- 1  MacNeal,  R.  H.;  and  Harder,  R.  L.:  “A  Proposed  Set  of  Problems  to  Test  Finite 

Element  Accuracy,”  Finite  Elements  in  Analysis  and  Design,  Vol.  1, 1985,  pp.  3-20. 

5.6- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 
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5.7  Procedure  MH_SPHERE 

5.7.1  GENERAL  DESCRIPTION 

5. 7.1.1  Problem  Description 

This  application  problem  is  another  of  the  MacNeal/Harder  Standard  Test  Problems.  The 
spherical  shell  problem  tests  an  element’s  ability  to  handle  double  curvature. 

5. 7.1. 2 Model  Description 

The  spherical  shell  is  modeled  for  both  2-D  and  3-D  elements.  As  is  shown  in  figure 
5.7-1,  it  is  a one-eighth  model  of  a spherical  shell  with  a 12°  hole  in  the  top.  The 
hole  in  the  top  of  the  sphere  allows  triangular  (2-D)  and  wedge-shaped  (3-D)  elements 
to  be  avoided.  The  sphere  is  loaded  by  two  point  loads  (1  lb.  each)  applied  at  cen- 
tric points  as  is  shown  in  figure  5.7-1.  The  sphere  is  modeled  with  N x N ele- 


5. 7.1.3  Analysis  Description 

A static,  linear  elastic  analysis  is  performed.  Displacements  at  the  point  of,  and  in  the 
direction  of  the  loads  are  calculated,  normalized  with  theoretical  results,  and  printed  for 
each  value  of  N (table  5.7-1). 

5. 7.1.4  Available  Solutions 

From  reference  5.7-1,  the  exact  theoretical  solution  for  the  displacement  at  the  point  of, 
and  in  the  direction  of  the  load  is  .0940  inches. 
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5.7.2  PROCEDURE  USAGE 

Procedure  10LSPHERE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  MH-SPHERE  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  MH_SPHERE  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

Meaning 

ES-PROC 

ESI 

Element  Processor 

ES-NAME 

EX47 

Element  name 

ES-PARS 

0. 

Element  research  parameters 

SPAR_DIM 

none 

2-D  or  3-D  SPAR  element 

REPORT 

<true> 

Generate  “report  card”  file 

DEL-LIB 

<false> 

Delete  libraries 

5.7.3  ARGUMENT  DESCRIPTIONS 

5. 7.3.1  ES -NAME 

Element  name  (default:  EX47).  This  is  the  name  of  the  element  type  you  wish  to  select, 
within  the  element  processor  defined  by  argument  ES_PROC.  SPAR  or  ES  elements  may 
be  used.  The  elements  are  described  in  the  appropriate  section  in  The  Computational 
Structural  Mechanics  Testbed  User’s  Manual  (reference  5.7-2). 

5.7.3. 2 ES-PROC 

Element  processor  (default:  ESI).  This  is  the  name  of  the  element  processor  that  contains 
the  element  you  wish  to  evaluate  in  this  procedure.  If  a SPAR  element  is  used,  ES-PROC 
should  be  set  to  SPAR.  The  element  processors  are  described  in  The  Computational  Struc- 
tural Mechanics  Testbed  User’s  Manual. 

5.7.3.3  ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 
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5. 7.3.4  SPAR-DIM 

If  a SPAR  element  is  used,  this  parameter  must  be  set  to  the  number  of  dimensions  of  that 
element.  If  ES  elements  are  used,  this  parameter  need  not  be  set  at  all. 

5. 7.3. 5 REPORT 

Print  report  file  (default=<true>).  If  REPORT  is  <true>  an  external  file  named 
CYL_<es_name>.<es_proc>  will  be  generated.  This  file  contains  the  normalized  radial 
displacements  of  the  nodes  at  the  inner  radius  of  the  cylinder. 

5. 7.3.0  DEL-LIB 

Delete  libraries  (default=<false>).  As  the  mesh  convergence  study  progresses,  libraries 
named  SPLJV.L01  are  generated,  where  N is  the  number  of  elements  along  each  edge  of 
model.  If  DEL.LIB  is  set  to  <true>,  these  libraries  will  be  deleted  during  the  analysis. 
This  allows  disk  space  to  be  conserved  if  the  analyst  does  not  need  the  libraries. 


2-D  Model 

3-D  Model 

4-node 

9-node 

8-node 

20-node 

N = 

2 

i 

4 

2 

4 

2 

8 

4 

6 

3 

12 

6 

8 

4 

10 

5 

12 

6 

Table  5.7-1  N = number  of  elements  for  convergence  study. 
Model  is  N x N. 


5.7.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  MH-SPHERE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦procedure  MH.SPHERE  ( ES.NAME  = EX47  ; — 

ES.PROC  = ESI  ; — 

ES.PARS  « 0 ; — 

SPAR.DIM  ; — 

DEL.LIB  = <false>  ; — 

REPORT  = <true>  ) 

(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  i.e., 
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♦call  MH.SPHERE 


This  will  perform  a static,  linear  elastic  analysis  of  the  MacNeal/Harder  spherical 
shell  using  the  EX47  element  in  processor  ESI.  The  one-eighth  sphere,  modeled  by 
N x N elements,  will  be  analyzed  with  N = 2,  4,  6,  8,  10,  and  12.  Six  libraries 
will  be  created,  SPHA.L01,  one  for  each  value  of  N.  If  the  argument  DEL_LIB  is 
<true>,  these  libraries  will  be  automatically  deleted  as  the  analysis  proceeds.  If  the 
argument  REPORT  is  <true>,  the  normalized  displacements  at  the  point  of,  and  in 
the  direction  of,  the  load  will  be  printed  in  a report  file  named  CYL.EX47.ES1  for 
each  value  of  N , figure  5.7-3. 


############################################################# 

############################################################# 
MACNEAL-HARDER  2-D  SPHERICAL  SHELL  PROBLEM 
ELEMENT  NAME  * EX47 
ELEMENT  PROCESSOR  = ESI 

ELEMENT  PARAMATERS  = 0 

NORMALIZED  RESULTS  

############################################################# 

GRID  » 2 0.9676 

0.9676 

GRID  = 4 1.0176 

1.0176 

GRID  * 6 1.0012 

1.0012 

GRID  = 8 0.9950 

0.9950 

GRID  * 10  0.9923 

0.9923 

GRID  - 12  0.9919 

0.9919 

#####*#«»*0«4tf ######**##«#####«## «#»*###««»«#«##»«########«## 
Figure  5.7-3  Report  file  generated  using  default  arguments. 
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(E2)  The  following  call  statement  will  solve  the  spherical  shell  problem  for  the  solid 
element  EX20  in  processor  ES3.  The  libraries  for  each  value  of  N will  be  deleted. 

♦call  MH.SPHERE  ( ES.NAME  - EX20  ; — 

ES.PROC  = ES3  ; -- 

DEL.LIB  = <true>  ; — 

REPORT  * <true>  ) 

(E3)  To  perform  the  analysis  using  a SPAR  element,  invoke  the  procedure  using  the 
appropriate  4-node  2-D  element  or  8-node  3-D  element  and  SPAR  for  ES-PROC. 
Note  that  the  argument  SPAR-DIM  must  be  defined  when  using  a SPAR  element. 

♦call  MH.SPHERE  ( ES.NAME  - S81  ; — 

ES.PROC  * SPAR  ; — 

SPAR.DIM  =3  ; — 

REPORT  * <true>  ) 


5.7.5  LIMITATIONS 

(LI)  This  procedure  can  only  evaluate  4-  and  9-node  2-D  elements,  and  8-  and  20-node 
solid  elements. 


5.7.6  ERROR  MESSAGES  AND  WARNINGS 

If  a SPAR  element  is  used,  and  the  argument  SPAR-DIM  is  not  set,  the  following  error 
message  will  be  printed  and  execution  terminated. 

The  argument  SPAR.DIM  must  be  defined  as  2 or  3 when 
using  SPAR  elements. 

Please  set  this  argument  and  rerun. 

5.7.7  PROCEDURE  FLOWCHART 


5.7.8  PROCEDURE  LISTING 


5.7.9  REFERENCES 

5.7- 1  MacNeal,  R.  H.;  and  Harder,  R.  L.:  “A  Proposed  Set  of  Problems  to  Test  Finite 

Element  Accuracy,”  Finite  Elements  in  Analysis  and  Design , Vol.  1, 1985,  pp.  3-20. 

5.7- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
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5.8  Procedure  MH_ROOF 
5=8,1  GENERAL  DESCRIPTION 

5.8. 1.1  Problem  Description 

This  application  problem  is  another  of  the  MacNeal/Harder  Standard  Test  Problems.  The 
Scordelis-Lo  Roof  problem  tests  an  element’s  ability  to  handle  single  curvature  and  dis- 
tributed gravity  loading. 

5.8. 1.2  Model  Description 

The  Scordelis-Lo  Roof  is  modeled  for  both  2-D  and  3-D  elements.  Due  to  symmetry, 
only  one-fourth  of  the  roof  is  modeled.  Loading  is  applied  to  the  roof  in  the  form  of  a 
distributed  gravity  load  equal  to  90.0  pounds  per  square  foot  of  surface  area.  For  higher- 
order  elements  the  load  is  applied  using  consistent  loading  concepts.  The  roof  is  modeled 
with  N x N elements  on  the  quarter  model.  A mesh  convergence  study  is  done  with  N 
taking  the  values  in  Table  5.8-1.  An  example  of  a 2-D  model,  N=4,  is  shown  in  Figure  5.8-1. 
Material  properties,  boundary  conditions,  and  dimensions  are  also  shown  in  Figure  5.8-1. 
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5.8.1.3  Analysis  Description 

A static,  linear  elastic  analysis  is  performed.  The  x-direction  displacement  at  the  midside 
of  free  edge,  point  A in  Figure  5.8-1,  is  calculated,  normalized  with  the  theoretical  result, 
and  printed  for  each  value  of  N (Table  5.8-1). 

5.8. 1.4  Available  Solutions 

From  reference  5.8-1,  the  theoretical  solution  for  the  displacement  in  the  direction  of  the 
load  at  the  midside  of  the  free  edge  is  .3024  inches. 


5.8.2  PROCEDURE  USAGE 


Procedure  MH_R00F  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  MH-ROOF  ( argl  * vail  ; arg2  = va!2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  MH-ROOF  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


Argument 

Default  Value 

ES-PROC 

ESI 

ES-NAME 

EX47 

ES-PARS 

0. 

SPAR_DIM 

none 

REPORT 

<true> 

DELJLIB 

<false> 

Meaning 

Element  Processor 
Element  name 

Element  research  parameters 
2-D  or  3-D  SPAR  element 
Generate  “report  card”  file 
Delete  libraries 


5.8.3  ARGUMENT  DESCRIPTIONS 
5. 8.3.1  ES-NAME 

Element  name  (default:  EX47).  This  is  the  name  of  the  element  type  you  wish  to  select, 
within  the  element  processor  defined  by  argument  ES-PROC.  SPAR  or  ES  elements  may 
be  used.  The  elements  are  described  in  the  appropriate  section  in  The  Computational 
Structural  Mechanics  Testbed  User’s  Manual  (reference  5.8-2). 
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5.8.5.2  ES-PROC 

Element  processor  (default:  ESI).  This  is  the  name  of  the  element  processor  that  contains 
the  element  you  wish  to  evaluate  in  this  procedure.  If  a SPAR  element  is  used,  ES_PRQC 
should  be  set  to  SPAR.  The  element  processors  are  described  in  The  Computational  Struc- 
tural Mechanics  Testbed  User’s  Manual. 

5. 8.3.3  ES-PARS 

Element  research  parameters  (default:  0.,  ...).  This  is  an  optional  list  of  element- 
dependent  parameters  that  some  elements  provide,  primarily  when  the  element  is  still 
undergoing  research  and  refinement. 

5.8.3. 4 SPAR_DIM 

If  a SPAR  element  is  used,  this  parameter  must  be  set  to  the  number  of  dimensions  of  that 
element.  If  ES  elements  are  used,  this  parameter  need  not  be  set  at  all. 

5.8.3. 5 REPORT 

Print  report  file  (default=<true>).  If  REPORT  is  <tru«>  an  external  file  named 
ROOF_<es_name>.<es_proc>  will  be  generated.  This  file  contains  the  normalized  vertical 
displacement  of  the  node  at  the  midside  of  the  free  edge,  point  A in  Figure  5.8-1. 

5.8.5.6  DEL-LIB 

Delete  libraries  (default =<lalse>).  As  the  mesh  convergence  study  progresses,  libraries 
named  ROOFJV.LOl  are  generated,  where  N is  the  number  of  elements  along  each  edge 
of  model.  If  DEL-LIB  is  set  to  <true>,  these  libraries  will  be  deleted  during  the  analysis. 
This  allows  disk  space  to  be  conserved  if  the  analyst  does  not  need  the  libraries. 


2-D  Model 

3-D  Model 

4-node 

9-node 

8-node 

20-node 

N = 

2 

i 

4 

2 

4 

2 

8 

4 

6 

3 

12 

6 

8 

4 

10 

5 

12 

6 

Table  5.8-1  N = number  of  elements  for  convergence  study. 
Model  is  N x N. 
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5.8.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  MHJ100F  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


•procedure  MH_ROOF  ( ES.NAME  * EX47 

ES.PROC  - ESI 
ES.PARS  = 0 
SPAR.DIM 

DEL.LIB  = <false> 
REPORT  - <true> 


) 


(El)  To  perform  an  entire  analysis  using  the  default  options,  simply  invoke  the  procedure 
without  any  arguments,  t.e., 


•call  MH_ROOF 


This  will  perform  a static,  linear  elastic  analysis  of  the  MacNeal/Harder  Scordelis- 
Lo  roof  using  the  EX47  element  in  processor  ESI.  The  one-fourth  roof,  modeled  by 

N x N elements,  will  be  analyzed  with  IV  = 2,  4,  6,  8,  10,  and  12.  Six  libraries 

will  be  created,  ROOFIV.LOl,  one  for  each  value  of  N.  If  the  argument  DEL-LIB 
is  <trua>,  these  libraries  will  be  automatically  deleted  as  the  analysis  proceeds.  If 
the  argument  REPORT  is  <true>,  the  normalized  displacements  at  the  point  of,  and 
in  the  direction  of,  the  load  will  be  printed  in  a report  file  named  ROOF-EX47.ES1 
for  each  value  of  N,  Figure  5.8-3. 

########################################################## 
########################################################## 
MACNEAL-HARDER  2-D  SCORDELIS-LO  ROOF  PROBLEM 
ELEMENT  NAME  = EX47 
ELEMENT  PROCESSOR  = ESI 

ELEMENT  PARAMATERS  - 0. 

NORMALIZED  RESULTS  

******#****#**#**#**###**##*####*#*####*##**###*##*######* 


GRID 

S 

2 

1.1225 

GRID 

s 

4 

0.9703 

GRID 

= 

6 

0.9884 

GRID 

s 

8 

0.9941 

GRID 

= 

10 

0.9971 

GRID 

s 

12 

1.0000 

*#«#*#*#*****#***##**##*#«*####*###**#**##*#*############# 
Figure  5.8-3  Report  file  generated  using  default  arguments. 


(E2)  The  following  call  statement  will  solve  the  Scordelis-Lo  roof  problem  for  the  solid 
element  EX08  in  processor  ES3.  The  libraries  for  each  value  of  N will  be  deleted. 

♦call  MH.ROOF  ( ES.NAME  = EX08  ; — 

ES.PROC  = ES3  ; — 

DEL.LIB  = <true>  ; — 
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REPORT  = <true>  ) 

(E3)  To  perform  the  analysis  using  a SPAR  element,  invoke  the  procedure  using  the 
appropriate  4- node  2-D  element  or  8-node  3-D  element  and  SPAR  for  ES_PR0C. 
Note  that  the  argument  SPAR-DIH  must  be  defined  when  using  a SPAR  element. 

♦call  MH  ROOF  ( ES.NAME  = S81  ; — 

ES.PROC  « SPAR  ; — 

SPAR.DIM  - 3 ; — 

REPORT  * <true>  ) 


5.8.5  LIMITATIONS 

(LI)  This  procedure  can  only  evaluate  4-  and  9-node  2-D  elements,  and  8-  and  20-node 
solid  elements. 


5.8.6  ERROR  MESSAGES  AND  WARNINGS 

If  a SPAR  element  is  used,  and  the  argument  SPAR_DIM  is  not  set,  the  following  error 
message  will  be  printed  and  execution  terminated. 

The  argument  SPAR. DIN  must  be  defined  as  2 or  3 when 
using  SPAR  elements. 

Please  set  this  argument  and  rerun. 

5.8.7  PROCEDURE  FLOWCHART 

5.8.8  PROCEDURE  LISTING 

5.8.9  REFERENCES 

5.8- 1  MacNeal,  R.  H.;  and  Harder,  R.  L.:  “A  Proposed  Set  of  Problems  to  Test  Finite 

Element  Accuracy,”  Finite  Elements  in  Analysis  and  Design , Vol.  1, 1985,  pp.  3-20. 

5.8- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 
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6.0  Postprocessing  Procedures 

The  procedures  documented  in  this  chapter  are  for  postprocessing  the  results  of  a given 
computation.  These  procedures  provide  examples  of  stress  recovery  and  internal  force  cal- 
culations as  well  as  examples  for  extracting  selected  data  from  the  computational  database. 

A summary  of  the  procedures  found  in  this  chapter  is  provided  in  Table  6.0-1. 


Table  6.0-1  Solution  Procedures 

Procedure  Name 

Description 

HISTORY 

Tabulate  Response  History  in  Database 

POST 

Tabulate  Selected  Results  in  Database 

STRESS 

Compute  Stresses  and/or  Strains  from  Displacements 

TOTAL-LOAD 

Compute  Total  Load  for  Applied  Displacement  Prob- 
lems 
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6.1  Procedure  HISTORY 

6.1.1  GENERAL  DESCRIPTION 

Procedure  HISTORY  is  typically  used  to  consolidate  the  response  history  of  one  or  more 
nodes  or  elements  into  a database  other  than  the  database  used  for  the  analysis.  The 
procedure  allows  for  the  extraction  of  a single  nodal  degree  of  freedom  from  one  or  more 
nodes.  It  also  provides  the  means  for  extracting  a single  stress  component  from  one  or 
more  elements. 


6.1.2  PROCEDURE  USAGE 

Procedure  HISTORY  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formed 
syntax  is  as  follows: 


•call  HISTORY  ( argl  = vail  ; arg2  - val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  HISTORY  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  procedure  HISTORY,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 
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Argument  Default  Value 

COMPONENT 

ELEMENT  _DS 

ELEMENT.RN 

ELEMENTS 

INPUT  J)S 

0UTPUT.DS 

0UTPUT.RN 

N0DE.DS 

N0DE_RN 

NODES 

NUM_ELEMENTS 

AVERAGE  <false> 

INPUT.LDI  1 

LOCATION  NODES 

NUM_N0DES  1 

NUM_STEPS  1 

OUTPUT-LDI  2 

STEPS  0:0 

SUM  <false> 


Meaning 

nodal  dof  or  element  stress  component 

name  of  element-list  dataset 

name  of  element-list  record 

element  numbers 

root  name  of  input  dataset 

full  name  of  output  dataset 

root  name  of  output  record 

name  of  node-list  dataset 

name  of  node-list  record 

node  numbers 

number  of  elements  to  process 
average  flag 

logical  device  index  of  input  database 
post  nodal  quantities 
number  of  nodes  to  process 
number  of  steps 

logical  device  index  of  output  database 
step  numbers 

summation  flag  (over  nodes) 


0.1.3  ARGUMENT  DESCRIPTIONS 
0.1. 3.1  AVERAGE 

Average  flag  (default:  <f  alse>).  If  <true>,  an  average  value  for  specified  nodes  or  elements 
will  be  computed  and  saved  in  the  database;  otherwise  individual  nodal  or  elemental  values 
are  computed  and  saved. 


0.1. 3. 2 INPUT-LDI 

Logical  device  index  of  input  database  (default:  l). 

0. 1.3.3  LOCATION 

Identifies  location  of  data  to  be  processed;  either  NODES  or  ELEMENTS  (default:  NODES). 
0.1.3. 4 NUM-NODES 


Number  of  nodes  to  process  (default:  1).  This  argument  is  a required  argument  only  if 
L0CATI0N=N0DES. 

0.1.3. 5 NUM.STEPS 

Number  of  steps  for  historical  data  recovery  (default:  1). 
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6. 1.3. 6 OUTPUT-LDI 

Logical  device  index  of  output  database  (default:  2). 

0.1.3. 7 STEPS 

Step  numbers  for  historical  data  recovery  (default:  0).  This  argument  is  an  array  of  length 
NUM-STEPS.  If  the  argument  STEPS=0,  the  linear  solution  is  used. 

6. 1.3.8  SUM 

Flag  to  perform  summation  (default:  <false>).  If  <true>  the  quantity  of  interest  wil  be 
summed  over  either  the  elements  or  nodes  as  specified  by  LOCATIONS.  It  is  the  summed 
(resultant)  value  is  then  saved  in  the  database. 

6. 1.3.0  COMPONENT 

Column  of  data  to  be  extracted.  When  LOCATION=NODES  (e.g.,  COMPONENTS  corresponds 
to  u-direction  displacement).  When  LOCATION=ELEMENT,  COMPONENT  is  typically  a stress 
resultant  (e.g.,  COMPONENTS  corresponds  to  Nz).  This  argument  is  always  required. 

0.1.3.10  ELEMENT-DS 

Name  of  dataset  containing  list  of  elements  to  be  processed.  This  argument  is  an  active 
argument  only  if  LOCATION-ELEMENTS. 

0.1.3.11  ELEMENT-RN 

Name  of  element-list  record.  This  argument  is  an  active  argument  only  if 
L0CATI0N=ELEMENTS. 

0.1.3.12  ELEMENTS 

Element  numbers  to  extract  historical  data.  The  argument  ELEMENTS  is  an  array  of  length 
NUM_ELEMENTS  that  lists  the  element  numbers  for  which  historical  data  are  extracted.  This 
is  an  active  argument  only  if  LOCATION-ELEMENTS.  Element  numbers  may  be  input  either 
through  the  ELEMENTS  argument  or  through  a dataset  containing  the  list  (i.e.,  using  the 
ELEMENTS _DS  and  ELEMENTJtN  arguments. 

0.1.3.13  INPUT J?S 

Root  name  (».e.,  first  two  words)  of  source  dataset.  This  argument  is  always  required. 
0.1.3.14  OUTPUT J?S 

Root  name  (i.e.,  first  two  words)  of  destination  dataset.  This  argument  is  always  required. 
The  dataset  is  written  one  record  per  step  per  element  for  LOCATION=ELEMENTS  or  one 
record  per  step  per  node  for  LOCATION-NODES. 
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6.1.3.15  OUTPUT-RN 

Root  name  (i.e.,  first  word)  of  destination  record.  This  argument  is  always  required. 

6.1.3.16  NODE-DS 

Name  of  dataset  containing  list  of  nodes  to  be  processed.  This  argument  is  an  active 
argument  only  if  L0CATI0M=H0DES. 

6. 1.3. IT  NODE-RN 

Name  of  node-list  record.  This  argument  is  an  active  argument  only  if  L0CATI0N=N0DES. 
6.1.3.18  MODES 

Node  numbers  to  extract  historical  data.  The  argument  NODES  is  an  array  of  length 
NUMJIODES  that  lists  the  node  numbers  for  which  historical  data  are  extracted.  This  is 
an  active  argument  only  if  L0CATI0N=N0DES.  Node  numbers  may  be  input  either  through 
the  NODES  argument  or  through  a dataset  containing  the  list  (i.e.,  using  the  NODE-DS  and 
NODE-RN  arguments). 

6.1.3.10  HUM-ELEMENTS 

Number  of  elements  to  extract  historical  data.  The  argument  NUM-ELEMENTS  specifies  the 
number  of  elements  from  which  historical  data  are  extracted.  This  is  a required  argument 
only  if  L0CATI0N=ELEMEHTS. 


6.1.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  HISTORY  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 


♦procedure  HISTORY  ( input_ldi  = 1 ; — . 

input_ds  ; — . 

output_ldi  = 2 ; — . 
output _ds  ; — . 

output_rn  ; — . 

location  * NODES  ; — 
mun_  steps  = 1 ; — • 
steps  =0:0;  — . 
num_nodes  = 1 ; — . 
nodes  ; — • 

component  ; — . 

sum  = <false>  ; — • 
average  = <false>  ; 
node.ds  ; — • 


ldi  of  input  database 
root  name  of  input  dataset 
ldi  of  output  database 
full  name  of  output  dataset 
root  name  of  output  record 
. post  nodal  quantities 
number  of  steps 
step  numbers 

number  of  nodes  to  process 
node  numbers 

nodal  dof  or  element  stress 
summation  flag  (over  nodes) 
— . average  flag 
name  of  node-list  dataset 
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node.rn 
element _ds 
element _rn 
mim„  e 1 emeu t s 
elements 


name  of  node-list  record 
name  of  element-list  dataset 
name  of  element-list  record 
number  of  elements  to  process 
element  numbers) 


0.1.5  LIMITATIONS 

Due  to  a restriction  on  the  number  of  active  macrosymbols,  no  more  than  700  nodes  or 
elements  may  be  processed  using  NODE-DS  or  ELEMEHTJDS. 

Procedure  HISTORY  should  be  used  only  to  process  limited  amounts  of  data  due  to  the 
procedure’s  inherent  inefficiency.  Except  for  small  problems,  the  SUM  argument  should 
not  be  used  to  perform  summation  over  the  nodes  for  multiple  load  steps.  In  most  cases 
this  operation  should  be  performed  using  the  T0TAL_L0AD  procedure  (see  Section  6.5). 

0.1.0  ERROR  MESSAGES  AND  WARNINGS 


None. 

0.1.7  PROCEDURE  FLOWCHART 


0.1.8  PROCEDURE  LISTING 

eprocedure  HISTORY  ( input. Id i * 1 ; 

input. ds  ; 

output. ldi  = 2 ; 
output .ds  ; 

output  .m  ; 

location  = NODES 
nua_ steps  * 1 ; 
stops  =0:0; 

nun .nodes  = 1 ; 
nodes  ; 

component  ; 

sun  = <false>  ; 
average  * <false> 
node.ds  ; 

node.ra  ; 

elenent.ds  ; 
element _rn  ; 

nun_ elements  ; 
elements 


ldi  of  input  database 
root  name  of  input  dataset 
ldi  of  output  database 
full  name  of  output  dataset 
root  nane  of  output  record 
. post  nodal  quantities 
number  of  steps 
step  numbers 

number  of  nodes  to  process 
node  numbers 

nodal  dof  or  element  stress 
summation  flag  (over  nodes) 

— . average  flag 
name  of  node-list  dataset 
name  of  node-list  record 
name  of  element-list  dataset 
name  of  element-list  record 
number  of  elements  to  process 
elesent  numbers 
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•def/i  steps [1 ; [nun.steps]]  = [steps] 

*i f < <IFELSE(  [LOCATION]  ;N0DES;1;0)>  > /then 
•if  < <IFELSE( [node.ds] ; ;1;0)>  > /then 
•def/i  nun.nodes  * [nua .nodes] 

•del/i  nodes [1 : <nun.nodes>]  ==  [nodes] 

•else 

•find  record  [input _ldi] , [node.ds],  [node.rn]  /nor =num .nodes 
•g2s  /name**nodes  /types!  /aaxn*<nu*.nodes>  [input. Idi]  [node.ds] 
[node.rn] . 1 : <nu*_nodes> 

•endif 
[XQT  VEC 

•find  dataset  [output _ldi]  [output .ds]  /seq=ids 
• if  «ids>  /le  0 > /then 

•put  dataset  [output.ldi]  [output.ds]  /mrat=2000  /seq=ids 
•endif 

•do  tis  * 1,  [nun.steps] 

•dei/i  step.num  = <steps[<$is>]> 

efind  dataset  [input .ldi]  [input .ds] ,<step.num>  /seq=hist.ids 
•if  < <hist.ids>  /le  0 > /then 
•remark 

•remark  Dataset  [input .ds] .<step.num>  not  found  by  HISTORY 
•remark 
•return 
•endif 

• if  < [sun]  /or  [average]  > /then 
•def/e  resultant  » 0.0 
•endif 

•do  tin  * 1,  <nun.nodes> 

•def/i  node.num  3 <nodes[<tin>]> 

COMPONENT  <node.num>  [component]  [input.ds] .<step.num>  ->  val 
•if  < [sum]  /or  [average]  > /then 

•def/e  resultant  » < <resultant>  ♦ <val>  > 

•else 

•m2g  /name 3 val  /type?d  [output.ldi]  <ids>  — 

[output .rn] .<step.nun> 

•endif 

•enddo 

•if  < [sum]  /or  [average]  > /then 
•if  < [average]  > /then 

•def/e  resultant  * < <resultant>  / <nun.nodes>  > 

•endif 

*n2g  /name*re suit ant  /type=d  [output.ldi]  <ids> 

[output.rn] . <step.num> 

•endif 

•enddo 

< <IFELSE( [LOCATION] {ELEMENTS; 1;0)>  > /th.n 
*il  < <IFELSE( [*l.m.nt_d«] ; ;1;0)>  > /th.n 

•d.l/i  nu.*lwwti  = [nun_.l.*.nt»] 

*d.f/i  ilMWti [1 ; i>]  == 

•else 

•find  record  [input .ldi] , [element .ds] , [element .rn] 
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/norsnum.element  s 

•g2m  /names elements  /type=i  /maxn=<nua.elenents>  [input.ldi]  — 
[element _ds]  [element  .rn]  . 1 : <num. element *> 

•endif 
[XQT  VEC 

•do  tis  = 1,  [num. steps] 

•def/i  step.num  = <steps [<$is>] > 

♦find  dataset  [input _ldi]  [input. ds] . <step_num>  /seq=hist_ids 
•if  < <hist.ids>  /le  0 > /then 
•remark 

•remark  Dataset  [input .ds] . <step_nua>  not  found  by  HISTOET 
•remark 
•return 
•endif 

•if  < [sum]  /or  [average]  > /then 
•def/e  resultant  * 0.0 
•endif 

•do  $in  = 1,  <num.elements> 

•def/i  element _nun  * <elements[<$in>]> 

COMPONENT  <element.num>  [component]  [input _ds] .<step_num>  ->  val 
•if  < [sum]  /or  [average]  > /then 

*def/e  resultant  = < <resultant>  + <val>  > 

•else 

*n2g  /name = val  /type=d  [output.ldi]  [output .ds]  — 

[output .m]  .<step.num> 

•endif 

•enddo 

•if  < [sum]  /or  [average]  > /then 
•if  < [average]  > /then 

•def/e  resultant  « < <re suit ant > / <num. element s>  > 

•endif 

•m2g  /namesre suit ant  /type=d  [output.ldi]  [output .ds]  — 
[output. m] . <step.num> 

•endif 

•enddo 

•endif 

•end 


6.1.9  REFERENCES 

6.1- 1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 

6.1- 2  Felippa,  Carlos  A.:  The  Computational  Structural  Mechanics  Testbed  Architecture: 

Volume  II  - Directives.  NASA  CR  178385,  February  1989. 
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6.2  Procedure  POST 

6.2.1  GENERAL  DESCRIPTION 

Procedure  POST  is  used  to  extract  the  response  history  of  one  or  more  nodes  from  one 
database  and  to  consolidate  it  into  another  database.  This  procedure  differs  from  procedure 
HISTORY  in  that  POST  cannot  operate  on  element  data  (e.y.,  element  stress  resultants). 


6.2.2  PROCEDURE  USAGE 

Procedure  POST  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  POST  ( argl  = vail  ; arg2  * val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  POST  are  summarized  in  the  following  table,  along 
with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are  generally 
mandatory , while  those  with  defaults  are  generally  optioned.  Exceptions  to  this  rule  are 
noted  in  the  following  section  under  detailed  argument  descriptions. 

For  procedure  POST,  the  following  table  lists  each  argument,  its  default  value  and  meaning. 


Parameter 

Default  Value 

Meaning 

DOF 

— 

Nodal  degree  of  freedom  index 

INPUT J)S 

— 

Root  name  of  input  dataset 

NODES 

— 

Node  numbers 

N0DES_DS 

— 

Name  of  node-list  input  dataset 

NODES _RN 

— 

Name  of  node-list  input  record 

0UTPUT_DS 

— 

Full  name  of  output  dataset 

OUTPUT-RN 

— 

Root  name  of  output  record 

INPUT  _LDI 

i 

Logical  device  index  of  input  database 

0UTPUT.LDI 

i 

Logical  device  index  of  output  database 

NSTEPS 

i 

Number  of  steps 

STEPS 

0:0 

Step  numbers 

NNODES 

1 

Number  of  nodes  to  process 

SUM 

<false> 

Summation  flag  (over  node  list) 
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0.2.3  ARGUMENT  DESCRIPTIONS 

6.2.3.1  INPUT-LDI 

Logical  device  index  of  input  database  (default:  l). 

6. 2. 3. 2 QPTPUT-LDI 

Logical  device  index  of  output  database  (default:  l). 

6. 2.3.3  NSTEPS 

Number  of  steps  for  historical  data  recovery  (default:  1). 

6. 2.3. 4 STEPS 

Step  numbers  for  historical  data  recovery  (default:  0).  This  argument  is  an  array  of  length 
NUM_STEPS.  If  the  argument  STEPS=0,  the  linear  solution  is  used. 

6. 2. 3. 5 NNODES 

Number  of  nodes  to  process  (default:  l). 

6. 2.3.6  SUM 

Flag  to  sum  over  nodes  (default:  <false>).  If  the  argument  SUM=<true>,  the  summation 
and  not  the  nodal  values  will  be  saved  in  the  database. 

6. 2.3. 7 DOF 

Nodal  degree  of  freedom  index  (».e.,  1,  2,  3,  4,  5,  or  6). 

0.2.S.8  INPPT_DS 

Root  name  (first  two  words)  of  source  dataset.  This  argument  is  mandatory. 

6. 2.3. 9 NODES 

Node  numbers  for  which  historical  data  are  extracted.  The  argument  NODES  is  an  array  of 
length  NODES.  Node  numbers  may  be  input  either  through  the  NODES  argument  or  through 
a dataset  containing  the  list  (i.e.,  using  the  N0DES_DS  and  NODES-RN  arguments). 

6.2.3.10  NODES-DS 

Name  of  dataset  containing  list  of  nodes  to  be  processed. 

6.2.3.11  NODES-RN 
Name  of  node-list  record. 
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6.2.3.12  OUTPUT J)S 

Root  name  (t.e.,  first  two  words)  of  destination  dataset.  This  argument  is  mandatory.  The 
dataset  is  written  one  record  per  step  per  node. 


6.2.3.13  OUTPUT  JIN 

Root  name  (».e.,  first  word)  of  destination  record.  This  argument  is  mandatory. 

6.2.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  POST  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 


*call  POST  ( input_ldi  * 1 ; — 
input _ds 
output.ldi  * 1 
output _ds 
output _rn 
nsteps  = 1 

steps  *0:0 

nnodes  * 1 

nodes 
dof 

sum  - <false> 
nodes.ds 
nodes _rn 


ldi  of  input  database 

— . root  name  of  input  dataset 

— . ldi  of  output  database 

— . full  name  of  output  dataset 

— . root  name  of  output  record 

— . number  of  steps 

— . step  numbers 

— . number  of  nodes  to  process 

— . node  numbers 

— . nodal  degree  of  freedom  index 

— . summation  flag  (over  node  list) 

— . [name  of  node-list  input  dataset] 

— . [name  of  node-list  input  record] ) 


6.2.5  LIMITATIONS 

Due  to  a restriction  on  the  number  of  active  macrosymbols,  no  more  than  700  nodes  should 
be  processed  using  N0DEJ)S  and  NODEJIN. 

6.2.6  ERROR  MESSAGES  AND  WARNINGS 


None. 


6.2.7  PROCEDURE  FLOWCHART 


Procedure  POST  is  self-contained  and  has  no  subprocedures. 
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6.2.8  PROCEDURE  LISTING 

♦procedure  POST  ( input. ldi  * 1 ; — 
input  .da  ; — 

output. ldi  * 1 ; — 
output .da  ; — 

output  .m  ; — 

natapa  = 1 ; — 

atop*  =0:0;  — 

nnodea  = 1 ; — 

nodes  ; — 

dof  ; — 

aun  = <false>  ; — 
nodaa.da  ; — 

nodas.rn 

) 


CLAMP  Procedure  to  Poat  Eeaponae  Hiatory  in  a Database 


♦def/i  steps  [1 : [nateps]]  = [steps] 

♦it  < <IFELSE( [nodes.ds] ; ;1;0)>  > /then 
♦def/i  nnodea  = [nnodea] 

♦def/i  nodes  [1  :<nnodes>]  = [nodes] 

♦else 

♦find  record  [input .ldi] , [node a. da] , [node a. m]  /nor=nnodea 
♦do  tin  * 1,  <nnodes> 

*g2a  /naae«nodes[<$in>]  /type=i  [input .ldi]  [nodes.ds]  — 
[nodes.m]  . <$in> 

eenddo 
* end if 
[XQT  VEC 

♦find  dataset  [output .ldi]  [output .da]  /seq=ids 
♦if  < <ids>  /le  0 > /then 

♦put  dataset  [output .ldi]  [output .da]  /nr at =2000  /seq=ids 
♦endif 

♦do  |is  * 1,  [nateps] 

♦def/i  step.nun  * <atepa[<$ia>]> 

♦if  < [sun]  > /then 

•def/e  resultant  = 0.0 
♦endif 

♦do  tin  = 1,  <nnodea> 

♦def/i  node .nun  = <nodea[<$in>]> 

COMPONENT  <node.nun>  [dof]  [input. da] .<atep.nun>  ->  value 
♦if  < [sun]  > /then 

*def/e  resultant  = < <reaultant>  ♦ <value>  > 

♦else 

♦n2g  /nane=value  /type=d  [output.ldi]  [output.da]  — 
[output  _m]  .<node.nun> . <st  ep.nun> 

♦endif 

♦enddo 

♦ if  < [aun]  > /then 


ldi  of  input  database 
root  nane  of  input  dataset 
ldi  of  output  database 
full  nane  of  output  dataset 
root  nane  of  output  record 
nunber  of  steps 
step  nunber a 

nunber  of  nodes  to  process 
node  nunbers 

nodal  degree  of  freedon  index 
suuuation  flag  (over  node  list) 
[nane  of  node-list  input  dataset] 
[nane  of  node-list  input  record] 
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*n2g  /na*o=ro»ultant  /typ#=d  [output  _ldi]  [output .ds]  — 
[output .m] . <st«p_nua> 

•ondif 

*anddo 

••nd 


0.2.9  REFERENCES 

6.2- 1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  Userfs 

Manual . NASA  TM-100644,  October  1989. 

6.2- 2  Felippa,  Carlos  A.:  The  Computational  Structural  Mechanics  Testbed  Architecture: 

Volume  II  - Directives . NASA  CR  178385,  February  1989. 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


6.2-  5 


Postprocessing  Procedures 


STRESS 


6.3  Procedure  STRESS 
0.3.1  GENERAL  DESCRIPTION 

Procedure  STRESS  drives  the  calculation  of  stress  resultant  and  strain  component  datasets 
for  either  linear  or  nonlinear  analyses.  The  user  may  select  recovery  of  stress  resultants  or 
strain  components  at  element  centroids,  element  nodes,  element  integration  points  or  at 
all  three  locations. 

0.3.2  PROCEDURE  USAGE 

Procedure  STRESS  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  separated  by  semicolons  (;)  and  enclosed  in  paren- 
theses. Procedure  arguments  are  order-independent,  and  most  have  default  values  thus 
making  them  optional.  The  formed  syntax  is  as  follows: 


For  procedure  STRESS,  the  following  table  lists  each  argument,  its  default  value  and  mean- 
ing. 


Argument 

Default  Value 

Meaning 

C0NS.SET 

i 

Constraint  set  number 

COROTATION 

i 

Corotational  flag  (0=OFF,  l=ON) 

DIM 

2 

Intrinsic  element  spatial  dimension  (2=2D,  3=3D) 

DIRECTION 

1 

Direction  for  element  stress  and  strain  recovery 

DISP_DS 

STAT.DISP 

First  two  words  of  displacement  dataset  name 

LOAD .SET 

1 

Load  set  number 

LOCATION 

NODES 

Location  of  the  evaluation  points  for  element  stresses 

NL.GEOM 

0 

Geometric  nonlinearity  flag 

NUMJ3TEPS 

1 

Total  number  of  steps  requiring  stress  calculations 

NVAL.METH 

3 

Method  to  be  used  for  global  smoothing 

PRINT 

<false> 

Flag  to  print  computed  results 

ROTNJDS 

STAT.ROTN 

First  two  words  of  rotation-vector  dataset  name 

SMOOTH 

<false> 

Flag  to  compute  smoothed  global  stresses 

STEPS 

0 

Step  numbers 

STRAIN 

<false> 

Flag  to  compute  element  strains 

STRESS 

<true> 

Flag  to  compute  element  stresses 

Tables  6.3-1,  6.3-2,  and  6.3-3  list  the  datasets  used  or  created  by  procedure  STRESS,  the 
procedures  invoked  by  procedure  STRESS,  and  the  processors  invoked  by  procedure  STRESS, 
respectively. 
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Table  6.3-1  Datasets  Input/Output  by  procedure  STRESS 

Dataset 

Description 

Lib 

Input 

Output 

ES.SUMMARY 

ES  Processor  Status 

B 

V 

V 

PROP.BTAB.* 

Material/Section  Properties 

B 

V 

STAT.DISP.i.jt 

System  Displacement  Vector 

B 

V 

STRS.<ES_NAME>.».;t  = 

Element  Stresses 

B 

V 

t i = <load_set>  and  j = <cons_set> 


Table  0.3-2  Sub-Procedures  Invoked  by  procedure  STRESS 

Procedure 

Type 

Function 

ES 

External 

Element  utility  procedure 

STRESS 

Internal 

Computes  element  stresses 

Table  6.3-3  Processors  Invoked  by  procedure  STRESS 

Procedure 

Type 

Function 

ESi 

External 

Element  processors  based  on  GEP 

NVAL 

Internal 

Perform  global  smoothing 

PESR 

Internal 

Print  element  stresses 

PNSR 

Internal 

Print  nodal  stresses 

0.3.3  ARGUMENT  DESCRIPTIONS 
6. 3.3.1  COKS-SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  use  in 
solving  the  linear  system  of  equations. 


6.3-  2 


CSM  Testbed  Procedures  Manual 


Revised  5/11/90 


Postprocessing  Procedures 


STRESS 


6.3. 3. 2 COROTATION 

Corotational  update  switch  for  large-rotation  problems  (default:  <true>).  This  switch 
should  be  set  to  <true>  when  the  model  involves  finite  elements  that  require  corotation 
for  geometric  nonlinearity.  This  is  true  of  most  beam  and  shell  elements,  and  may  be 
true  for  some  solid  (3D)  elements  used  to  model  shell  structures.  Consult  the  appropriate 
element  processor  (ESi)  section  in  the  CSM  Testbed  User’s  Manual  (see  ref.  6.3-1)  for 
specific  guidelines. 

6. 3.3.3  DIM 

Intrinsic  element  spatial  dimension  (default:  2).  This  argument  selects  the  element  spatial 
dimension:  2 for  a two-dimensional  element  or  3 for  a three-dimensional  solid  element. 

6. 3. 3.4  DIRECTION 

Direction  for  the  element  stress  (stress  resultant)  output  (default:  l).  The  element  stress 
coordinate  system  will  be  used  if  DIRECTIONS.  The  material  axes  (xm,  ym,  zm)  will  be 
used  if  DIRECTIONS;  the  material  axes  (ym,  zm,  xm ) will  be  used  for  DIRECTIONS;  and 
the  material  axes  (zm,  xm,  ym)  will  be  used  for  DIRECTIONS.  For  isotropic  materials,  the 
first  material  axis  is  replaced  by  the  corresponding  global  axis  (see  Section  4.3.3.9  of  the 
CSM  Testbed  User’s  Manual,  ref.  6.3-1). 

6. 3.3.5  DISP-DS 

First  two  words  of  the  dataset  name  for  the  displacement  solution  (default:  STAT.DISP). 

6.3.3. 6 LOAD-SET 

Load  set  number  (default:  l).  This  argument  selects  which  load  set  to  use  as  a right-hand 
side  vector. 

6.3.3. 7 LOCATION 

Location  of  the  evaluation  points  for  the  element  stresses  or  stress  resultants  (default: 
NODES).  The  element  stresses  or  stress  resultants  are  optionally  computed.  This  argument 
may  have  four  values.  For  LOCATION=INTEG_PTS,  the  element  stresses  are  computed  at 
the  element  integration  points.  For  LOCATION=CENTROIDS,  the  element  stresses  are  com- 
puted at  the  element  centroid.  For  L0CATI0N=N0DES,  the  element  stresses  are  extrapolated 
from  the  integration  points  to  be  element  nodes.  These  element  nodal  stresses  will  be 
discontinuous  across  interelement  boundaries.  For  LOCATION=ALL,  the  element  stresses  are 
computed  at  the  element  integration  points,  element  centroid,  and  element  nodes. 

6.5.3.8  NL-GEOM 

Geometric  nonlinearity  level:  0,  1,  or  2 (default  =2).  A value  of  zero  means  that  the 
problem  is  geometrically  linear;  a value  of  one  means  that  the  geometric  nonlinearity  will 
be  handled  globally  (i.e.,  using  corotational  updates  only);  and  a value  of  two  means  that 
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the  nonlinear  element  strain-displacement  relations  will  be  used  in  addition  to  any  global 
treatment  of  geometric  nonlinearity.  If  COROTATION  * <true>,  options  1 and  2 refer  to 
first-order  and  second-order  corotation,  respectively.  The  latter  option  can  be  significantly 
more  accurate  than  the  former  for  a given  finite  element  model  — depending  on  which 
element  types  are  involved. 

6. 3. 3.0  NUM-STEPS 

Number  of  steps  for  stress  recovery  (default:  1). 

0.3.3.10  NVAL-METH 

Select  method  to  be  used  for  computing  the  smoothed  global  stresses  (default:  3).  Proces- 
sor NVAL  is  used  to  compute  the  smoothed  global  stresses  using  the  method  defined  by  the 
argument  NVAL_METH  (see  Section  12.5  of  reference  6.3-1).  If  NVAL_METH=1,  a topological 
interpolation  of  the  element  centroidal  stresses  is  performed,  and  the  element  stresses  must 
have  been  computed  using  LOCATION=CENTROIDS.  If  NVAL _METH=2,  a projected  least-squares 
interpolation  of  the  element  centroidal  stresses  is  performed,  and  the  stresses  must  have 
been  computed  using  LOCATION=CENTROIDS.  If  NVAL_METH=3,  the  element  nodal  stresses 
(discontinuous  across  interelement  boundaries)  are  averaged,  and  the  element  stresses  must 
have  been  computed  using  LOCATION-NODES.  Using  L0CATI0N=ALL  will  generate  element 
stresses  at  the  element  centroids,  element  nodes,  and  element  gauss  points.  Acceptable 
values  of  location  for  specific  values  of  NVAL-METH  axe  as  follows: 


NVAL-METH 

Location 

1 

CENTROIDS,  ALL 

2 

CENTROIDS,  ALL 

3 

NODES,  ALL 

0.3.3.11  PRINT 

Flag  to  print  computed  results  (default:  <false>).  If  the  argument  PRINT=<true>,  then 
the  element  stresses  and/or  nodal  stresses  will  be  printed. 

0.3.3.12  ROTN-DS 

First  two  words  of  the  dataset  name  for  the  rotation  solution  (default:  STAT.ROTN). 
0.3.3.13  SMOOTH 

Flag  to  compute  smoothed  global  stresses  (default:  <false>).  If  the  argument 

SM00TH=<true>,  then  smoothed  global  stresses  will  be  computed  by  processor  NVAL  using 
the  method  defined  by  the  argument  NVAL-METH. 

0.3.3.14  STEPS 

Step  numbers  for  stress  recovery  (default:  0).  This  argument  is  an  array  of  length 
NUM.STEPS.  If  the  argument  STEPS=0,  the  linear  solution  is  used. 
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6.3.3.15  STRAIN 

Flag  to  compute  element  stresses  or  stress  resultants  (default:  <f  alse>).  If  the  argument 
STRAIN=<true>,  then  the  element  stresses  will  be  computed  at  the  location  and  in  the 
direction  specified  by  the  arguments  LOCATION  and  DIRECTION. 

6.3.3.16  STRESS 

Flag  to  compute  element  stresses  or  stress  resultants  (default:  <f  alse>).  If  the  argument 
STRESS=<true>,  then  the  element  stresses  will  be  computed  at  the  location  and  in  the 
direction  specified  by  the  arguments  LOCATION  and  DIRECTION. 

6.3.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  STRESS  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 

♦call  STRESS  ( STRESS  = <true>  ; — 


STRAIN 

= 

<false> 

• 

» 

LOCATION 

S 

CENTROIDS 

I "" 

DIRECTION 

s 

0 

— 

NL.GEOH 

= 

0 

— 

CORO 

s 

1 

— 

LOAD.SET 

as 

1 

— 

CONS.SET 

= 

1 

— 

NUM_  STEPS 

* 

1 

— 

PRINT 

= 

<false>  ; 

— 

NVAL_METH 

= 

3 ; 

1 ” 

SMOOTH 

= 

<false>  ; 

— 

DIM 

2 ; 

1 

STEPS 

= 

0 ; 

t 

DISP_DS 

= 

STAT.DISP 

i 

ROTN.DS 

= 

STAT.ROTN 

) 

6.3.5  LIMITATIONS 


Applicable  only  to  elements  implemented  using  the  generic  element  processor  template. 
Procedure  STRESS  assumes  that  all  datasets  either  required  or  generated  reside  on  library 
one  (LDI  = 1). 
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6.3.6  ERROR  MESSAGES  AND  WARNINGS 

An  error  message  is  printed  and  global  stress  smoothing  will  not  be  performed  if  the  values 
of  NVAL _METH  and  LOCATION  are  inconsistent.  Processing  of  element  data  will  continue.  See 
Section  12.5  of  reference  6.3-1  for  usage  of  processor  NVAL. 

6.3.7  PROCEDURE  FLOWCHART 

STRESS  (main  procedure) 

ES  (calculate  element  stresses  and/or  strains) 


6.3.8  PROCEDURE  LISTING 


♦procedure  STRESS  ( STRESS 
STRAIN 
LOCATION 
DIRECTION 
NL.GEOH 
CORO 

LOAD.SET 

CONS.SET 

NUM.STEPS 

SMOOTH 

DIM 

STEPS 

DISP_DS 

ROTN.DS 


<true> 

<f alse> 

* CENTROIDS 
0 


print*<2alse>;  — 


0 
1 
1 
1 
1 

<2alse>;  NVAL.METH 
2 ; — 

0 ; — 

STAT.DISP  ; — 
STAT.ROTN 


3; 


♦remark  *************** 
♦remark  STRESS  RECOVERY 
♦remark  *************** 


. Loop  on  Solution  Stops 


*def/i  stops [1 : [nu»_ steps]]  = [stops] 

*do  $is  = 1,  [nun.stops] 

*dol/i  istop  * <steps[<$is>]> 

*12  «istop>  /no  0>  /then 
*do2/a  DS.SFX  = <istop> 

♦else 

♦del/a  DS.SFX  = [load.set] . [cons.set] 

♦ondil 

*il  < < [STRAIN]  /no  <2also»  /or  < [STRESS]  /no  <2also»  > /thon 


Define  Eloaont  Stress /Strain  Option  and  Dataset  Nasos 
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•if  < < [STRAIN]  /eq  <true»  /and  < [STRESS]  /eq  <false»  > /then 
•def/p  function  = ’FORM  STRAIN ’ 

•def/a  STRAIN.DS  = <DS.SFX> 

•def/a  STRESS.DS  * ’ ’ 

•elseif  < < [STRAIN]  /eq  <trua»  /and  < [STRESS]  /eq  <true»  > /then 
•def/p  function  * ’FORM  STRESS’ 

•def/a  STRAIN.DS  * <DS_SFX> 

•def/a  STRESS.DS  * <DS.SFX> 

•elseif  < < [STRAIN]  /eq  <false»  /and  < [STRESS]  /aq  <true»  > /then 
•def/p  function  « ’FORM  STRESS’ 

•def/a  STRAIN.DS  * ’ ’ 

•def/a  STRESSES  » <DS.SFX> 

•endif 

Invoke  Element  Processors  to  Fora  Stress/Strain 

•if  < ifeqs(  [location] ; ALL)  > /then 

Calculate  the  stresses/strains  at  element  nodes,  centroids, 
and  gauss  points 

•do  liloc  = 1,3 

•if  < ifeqs(  <$iloc>;l)  > /then 
•def/a  location  = CENTROIDS 
•elseif  < ifeqs(  <$iloc>;2)  > /then 
•def/a  location  = NODES 
•elseif  < ifeqs(  <tiloc>;3)  > /then 
•def/a  location  * INTEG.PTS 
•endif 

•call  ES  ( function  * <function>  ; — 

es.nl.geom  * [nl.geom]  ; — 

es.coro  » [coro]  ; — 

es.dis.ds  * [DISP.DS] . <DS_SFX>  ; — 
es.rot.ds  = [ROTN.DS] .<DS.SFX>  ; — 
es.str.dir  * [DIRECTION]  ; ~ 

es.str.loc  = <location>  ; — 

es.strain.ds  = <strain_ds>  ; — 

es. stress. ds  = <stress_ds>  ) 

•enddo 

•else 

Calculate  the  stresses/straina  only  at  [LOCATION] 

•call  ES  ( function  « <function>  ; — 

es.nl.geom  * [nl.geom]  ; — 

es.coro  » [coro]  ; — 

es.dis.ds  = [DISP.DS] .<DS.SFX>  ; — 
es.rot.ds  * [ROTN.DS] . <DS.SFX>  j ~ 
es.str.dir  * [DIRECTION]  ; — 

es.str.loc  = [LOCATION]  ; — 

es.strain.ds  * <strain.ds>  ; — 
es.stress.ds  = <stress.ds>  ) 

•endif 
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Print  the  Element  Stresses 

♦ if  < [print]  > /then 

♦if  < ifeqs( [location] ; ALL)  > /then 
♦def/i  stress. loc  » 0 

♦elaeif  < ifeqs( [location] ; CENTROIDS)  > /then 
♦def/i  stress.loc  * 1 
♦eleeif  < if eqs( [location] ;NODES)  > /then 
♦def/i  stress.loc  * 2 

♦eleeif  < ifeqs(  [location]  ;INTEG.PTS)  > /then 
♦def/i  stress.loc  * 3 
♦endif 
[zqt  pesr 

SELECT  /global* [direction]  /LOCATION*<stress_loc> 
♦if  < <istep>  /eq  0>  /then 

PRINT  /LOAD.SET* [load.set]  /CONSTRAINT* [cons. set] 

♦else 

PRINT  /LOAD.SET*<istep>  /C0NSTRAINT=0 
♦endif 
STOP 
♦endif 
♦endif 


Calculate  nodal  stresses  using  processor  NVAL 

♦if  < [SMOOTH]  > /then 

♦if  < if eqs(  [LOCATION]; ALL)  > /then 
♦elseif  /then  < < [NVAL.METH]  /eq  3>  /and  — 

<ifeqs( [LOCATION] ;N0DES)>  > 

♦elseif  /then  < < [NVAL.METH]  /ne  3>  /and  — 

<if eqs( [LOCATION]; CENTROIDS )>  > 

♦else 

♦remark  ♦♦♦♦♦♦♦♦♦♦♦♦ERROR  MESSAGE****************** 
♦reaark  Stress  evaluation  point  not  consistent  with 
♦reaark  stress  smoothing  method  selected. 

♦remark  ******************************************* 

♦jump  :EXIT 

♦endif 

*def/a  STRS  * STRS.<es.name>. <stress.ds> 

[xqt  NVAL 

reset  meth* [NVAL.METH] , DIM* [DIM] 9 DS*<STRS> 
reset  first*l,  last*<es.nstr> 

♦if  < [NVAL.METH]  /eq  3 > /then 
♦def/a  REC  * NODES.S [direction] 

♦else 

♦def/a  REC  * CENTROIDS.S [direct ion] 

♦endif 

reset  RECNAME*<REC> 

STOP 

Print  the  Nodal  Stresses 
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•i 1 < [print]  > /than 
[zqt  pmr 

*i t < <istap>  /aq  0 > /than 

FEINT  /loads [loadssat]  /constraints [cons.sat]  /nathcd* [nval.aath] 

••Isa 

PRINT  /load=<istap>  /constraint=0  /a«thod=[nval_a«th] 

•andif 

STOP 

:EXIT 

••ndif 

••ndif 

••nddo 

•and 

0.3.9  REFERENCES 

6.3-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual  NASA  TM-100644,  October  1989. 
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6.4  Procedure  TOTAL_LOAD 

6.4.1  GENERAL  DESCRIPTION 

Procedure  TOTAL-LOAD  sums  the  reaction  forces  to  determine  the  total  applied  load  for 
problems  with  applied  displacements  for  either  linear  or  nonlinear  analyses.  The  computed 
total  load  may  be  divided  by  a constant  and  seeded  by  a second  constant. 


6.4.2  PROCEDURE  USAGE 

Procedure  TOTAL-LOAD  may  be  used  by  preceding  the  procedure  name  by  the  *call  direc- 
tive, and  following  it  by  a list  of  arguments  separated  by  semicolons  (;)  and  enclosed  in 
parentheses.  Procedure  arguments  are  order-independent,  and  most  have  default  values 
thus  making  them  optional.  The  formal  syntax  is  as  follows  (see  example  usage  in  Section 
6.4.4): 

♦call  TOTAL-LOAD  ( argl  = vail  ; arg2  = val2  ; . . . ) 

For  procedure  TOTAL-LOAD,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 


Argument 

Default  Value 

Meaning 

INPUT-LDI 

i 

Input  library  number 

ODTPUT-LDI 

i 

Output  library  number 

NL-RES-LDI 

3 

Library  containing  nonlinear  results  dataset 

LOAD-SET 

1 

Load  set  number 

C0NS.SET 

1 

Constraint  set  number 

NSTEPS 

0 

Total  number  of  load  steps  to  be  processed 

BEG IN-STEP 

1 

First  load  step  to  be  processed 

END-STEP 

-1 

Last  load  step  to  be  processed 

LD-DIR 

1 

Load  direction 

EqUIL.CK 

0 

Flag  enabling  an  equilibrium  check 

EA 

1.0 

Scaling  constant 

FAC 

2.0 

Scaling  constant 

NAME1 

’ STAT  * 

First  word  of  input  dataset  name 

NAME2 

’ REAC ’ 

Second  word  of  input  dataset 

INPUT-DS 

> > 

Full  name  of  input  dataset 

OUTPUT-DS 

> » 

Full  name  of  output  dataset 

NL-RES.DS 

i > 

Full  name  of  dataset  containing  nonlinear  results 

INPUT-REC 

»DATA> 

Input  dataset  record  key 

OUTPUT-REC 

t t 

Output  record  key 

OUTPUT-FILE 

> i 

Output  file  name 

Table  6.4-1  lists  the  datasets  used  by  procedure  TOTAL-LOAD. 
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Table  6.4-1  Datasets  Input/Output  by  procedure  TOTAL_LOAD 

Dataset 

Description 

Lib 

Input 

Output 

STAT.REAC.i.jt 

Reaction  Force  Vector 

INPUT-LDI 

x/ 

JDFl.BTAB.1.8 

Number  of  nodes  and  active  d.o.f. 

INPUT-LDI 

V 

t i = <loadjset>  and  j = <cons_set>  for  linear  analyses 
x = <step>  and  j=0  for  nonlinear  analyses 


6.4.3  ARGUMENT  DESCRIPTIONS 

6.4.3. 1 INPPT_LDI 

Input  library  number  (default:  l). 

6. 4. 3. 2 OPTPUT-LDI 

Output  library  number  (default:  l).  This  argument  sets  the  number  of  the  output  data 
library  if  an  output  dataset  name  (OUTPUT-DS)  has  been  set.  If  an  output  dataset  name 
has  not  been  specified,  this  argument  is  ignored. 

6.4.5.3  WL-RES-LDI 

Library  containing  nonlinear  results  dataset  (default:  3).  This  argument  is  used  only  if 
the  number  of  nonlinear  load  steps  is  to  be  calculated  automatically  (t'.e.,  HSTEPS  * ALL). 
In  this  case,  the  number  of  load  steps  is  calculated  based  on  the  number  of  records  found 
in  the  results  dataset  contained  in  the  NL_RES_LDI  library. 

6.4. 3.4  LOAD-SET 

Load  set  number  (default:  l).  This  argument  selects  the  load  set  to  be  used  as  a right-hand 
side  vector.  L0AD_SET  is  an  active  argument  only  if  NSTEPS  * 0 and  END_STEP  = -1  (the 
default  values). 

6.4.3. 5 CONS-SET 

Load  set  number  (default:  1).  This  argument  selects  the  constraint  set  to  be  used  in  the 
solution  of  the  linear  system  of  equations.  CONS-SET  is  an  active  argument  only  if  NSTEPS 
= 0 and  END -STEP  * -1  (the  default  values). 

6.4. 3.6  NSTEPS 

Number  of  steps  to  be  processed  (default:  0).  The  number  of  load  steps  may  be  set  to 
an  integer  or  to  the  character  string  ALL.  If  NSTEPS  = ALL,  the  number  of  load  steps  to 
be  processed  is  calculated  based  on  the  information  contained  in  the  NL-RES  JDS  in  library 
NL-RESJLDI.  For  use  in  linear  static  analyses,  NSTEPS  must  be  set  to  zero. 
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0.4.3. 7 BECIN-STEP 

First  load  step  to  be  processed  (default:  1).  This  argument  is  active  only  if  END_STEP  is 
greater  than  zero  in  which  case,  load  steps  BEGIN_STEP  through  ENDJSTEP  will  be  processed. 

6.4. 3. 8 END-STEP 

Last  load  step  to  be  processed  (default:  -1).  This  argument  is  active  only  if  it  is  greater 
than  zero  in  which  case,  load  steps  BEGIN-STEP  through  END-STEP  will  be  processed. 

6.4.3.0  LD-DIR 

Load  direction  (default:  l).  This  argument  defines  the  direction  in  which  to  perform  the 
summation.  The  value  of  LD-DIR  must  be  an  active  degree  of  freedom  (i.e.,  1,  2,  3,  4,  5, 
or  6 and  not  specified  as  globally  constrained  in  TAB/START). 

6.4.3.10  EQUIL-CK 

Flag  enabling  an  equilibrium  check  (default:  0).  The  total  load  is  calculated  by  summing 
the  absolute  value  of  the  nodal  contributions  in  the  direction  of  LD-DIR.  When  EQUIL-CK 
is  set  to  one  (1),  the  absolute  value  is  not  used  when  performing  the  summation. 

6.4.3.11  EA 

Scaling  factor  (default:  1.0).  Frequently  the  total  load  may  be  normalized  by  the  exten- 
sional  stiffness  or  critical  buckling  load.  The  total  will  be  divided  by  the  scaling  factor  EA 
before  being  saved  or  written  out. 

6.4.3.12  FAC 

Scaling  factor  (default:  2.0).  The  default  value  of  2.0  will  be  used  in  most  applications 
where  the  total  load  is  being  calculated.  This  is  due  to  the  use  of  the  absolute  value  in 
the  summation  which  essentially  doubles  the  applied  load.  Frequently  for  finite  element 
models  with  symmetry  conditions  imposed,  the  total  load  is  only  half  the  value  of  the 
summed  reaction  forces.  The  total  load  will  be  divided  by  the  scaling  factor  FAC  before 
being  saved  or  written  out. 

6.4.3.13  NAHE1 

First  word  of  reaction  force  dataset  name  (default:  STAT).  This  is  an  active  argument  only 
if  INPUT-DS  = » * (the  default  value). 

6.4.3.14  NAME2 

Second  word  of  reaction  force  dataset  name  (default:  REAC).  This  is  an  active  argument 
only  if  INPUT-DS  * * * (the  default  value). 
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♦call  TOTAL-LOAD  ( — 

nsteps  * ALL  ; — . process  all  load  steps 

ld.dir  *3  ; — . direction  of  load  is  3 

namel  * *REAC*  ; — . first  word  of  input  dataset 

name2  s ’FORC’  ; — . second  word  of  input  dataset 

output  .file  = '8um_load.dat  ’ ) . output  file  name 


6.4.5  LIMITATIONS 


None. 


6.4.6  ERROR  MESSAGES  AND  WARNINGS 


None. 


6.4.7  PROCEDURE  FLOWCHART 

Procedure  TOTAL-LOAD  is  self-contained  and  calls  no  other  procedures. 


6.4.8  PROCEDURE  LISTING 


•procedure  TOTAL.LOAD  ( — 


input. Xdi 

= 

1 

— . 

Input  Library 

output.Xdi 

= 

1 

— . 

Output  Library 

nX.res.Xdi 

* 

3 

— . 

Library  containing  nonlinear  resuXts  ds 

Xoad.set 

= 

1 

— . 

Load  set  (Linear  onXy) 

cons. set 

= 

i 

— . 

constraint  set  (Linear  onXy) 

nsteps 

= 

0 

— - 

number  of  Load  steps  to  process 

begin.step 

* 

1 

— . 

first  Load  step  to  process 

end.step 

* 

-1 

— . 

Last  Load  step  to  process 

Xd.dir 

s 

1 

— . 

direction  of  Load 

equiX.ck 

s 

0 

— . 

if  s 0,  totaX  Load;  if  = 1,  check  equil 

EA 

s 

1.0 

— . 

EA  (to  get  P/EA) 

fic 

s 

2.0 

— . 

divide  final  Load 

nanel 

s 

’STAT’ 

— . 

first  word  of  input  dataset 

naae  2 

s 

’REAC’ 

— . 

second  word  of  input  dataset 

input .ds 

s 

m > > > 

— . 

fuXX  naae  of  input  dataset 

output .ds 

= 

m mi 

— . 

output  dataset 

nX.res.ds 

s 

’ES*» 

— . 

nonXinear  results  dataset  name 

input .rec 

= 

’DATA’ 

— . 

input  dataset  record  key 

output _rec 

s 

’TOTAL.LOAD’; 

— , output  record 

output.! ile 

= 

’ ’ ’ ’ ’ ’) 

output  fiXe  naae 

[xqt  LOAD 

reset  inlib* [input . ldi] , 
reset  isets [cons. set] , 
reset  nsteps» [nsteps] , 
reset  idir= [Xd.dir] , 


outlibs  [output.Xdi]  # reslib=  [nX.res.Xdi] 
ncon= [cons. set] 

strt= [begin.step]  , stop* [end.step] 
eqck=[equiX.ck] 
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reset  ea=[EA],  lfac=[fac] 

r«i«t  nl=[nai«l],  n2=[nan«2] 

re sat  ds in« [input. da] , dsout= [output. ds] , dsres=[nl.res_ds] 

reset  rain* [input _rec] , mout= [output _rac] 

reset  outfil» [output .file] 
stop 

♦ end 

0.4.9  REFERENCES 

None. 
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7.0  Utility  Procedures 

The  procedures  documented  in  this  chapter  are  convenient  utility  procedures  that  are 
useful  in  many  analysis  tasks. 

A summary  of  the  procedures  found  in  this  chapter  is  provided  in  Table  7.0-1. 


Table  7.0-1  Utility  Procedures 

Procedure  Name 

Utility  Description 

CONSTRAIN 

Impose  Scaled  Applied  Displacements 

C0PY_DS 

Copy  a Dataset  and  Rename 

EIGEN 

Perform  Eigenvalue  Analysis 

ES 

Generic  Element  Processor  Control 

FACTOR 

Factor  (Decompose)  System  Stiffness  Matrix 

FORCE 

Form  Force  Vectors 

IMPERFECTION 

Superpose  Initial  Geometric  Imperfection 

INITIALIZE 

Model  initialization 

MASS 

Form  Mass  Matrix 

MODEL-SUMMARY 

Model  Summary  Information 

PRINT.EFIL 

Print  Selected  Segments  of  EFIL  Dataset 

RESEQUENCE 

Resequence  Nodal  Equations 

SOLVE 

Solve  System  of  Equations 

STIFFNESS 

Form  Stiffness  Matrix 

SVITCH-DS 

Switch  the  Names  of  Two  Datasets 
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7.1  Procedure  CONSTRAIN 

7.1.1  GENERAL  DESCRIPTION 

Procedure  CONSTRAIN  scales  the  applied  motion  vector.  This  procedure  is  generally  used 
for  nonlinear  analyses  with  applied  displacements. 

7.1.2  PROCEDURE  USAGE 

Procedure  CONSTRAIN  is  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  CONSTRAIN  ( argl  = vail  ; arg2  = val2  ; ...) 


where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  CONSTRAIN  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 
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For  procedure  CONSTRAIN,  the  following  table  lists  each  argument,  its  default  value  and 


meaning. 

Argument 

Default  Value 

Meaning 

APPLIED -MOTION 

Name  of  applied  motion  dataset 

CONSTRAINT-SET 

1 

Constraint  set  number 

DISPLACEMENT 

Name  of  scaled  applied  motion  dataset 

LDI 

1 

Logical  device  index 

LOAD-FACTOR 

1.0 

Load  factor 

7.1.3  ARGUMENT  DESCRIPTIONS 

7. 1.3.1  APPLIED-MOTION 

Full  dataset  name  of  the  basic  applied  displacements  ( e.g .,  APPL.MOTI.1.1). 

7. 1.3. 2 CONSTRAINT-SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  be  used 
in  solving  the  linear  system  of  equations. 

7. 1.3.3  DISPLACEMENT 

Full  dataset  name  of  the  scaled  applied  displacements  (e.jr.,  TOT.DISP.l). 

7. 1.3. 4 LDI 

Logical  device  index  (default:  l). 

7. 1.3. 5 LOAD-FACTOR 

Load  factor  (default:  1.0).  This  argument  defines  the  load  factor  or  scaling  constant  to 
be  used  to  scale  the  basic  applied  motions. 

7.1.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  CONSTRAIN  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦call  CONSTRAIN  ( LDI  * 1 ; CONSTRAINT-SET  = 1 ; 

LOAD-FACTOR  - 1.0  ; 

APPLIED-MOTION  * APPL.MOTI.1.1; 

DISPLACEMENT  - TOT.DISP.l  ) 
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7.1.5  LIMITATIONS 

Procedure  CONSTRAIN  assumes  that  processor  VEC  is  executing. 

7.1.6  ERROR  MESSAGES  AND  WARNINGS 

None. 


7.1.7  PROCEDURE  FLOWCHART 

Procedure  CONSTRAIN  is  self-contained  with  no  subprocedures. 

7.1.8  PROCEDURE  LISTING 

♦procedure  CONSTRAIN  ( ldi  a 

constraint. set  = 
load.factor  a 

applied.motion 
displacement 


. Impose  Specified  Displacement  Constraints  (Single  Point) 


*if  < <spec.disp.f lag>  > /then 

SPECIFY  [load.factor]  [applied.aotion]  ->  [displacement] 
•endif 
•end 


7.1.9  REFERENCES 

7.1-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 
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7.2  Procedure  COPY_DS 

7.2.1  GENERAL  DESCRIPTION 

Procedure  COPYJDS  copies  a dataset  in  a given  library  to  another  dataset  in  possibly  a 
different  library.  This  procedure  only  uses  directives  from  the  command  language  (see 
reference  7.1-1). 

7.2.2  PROCEDURE  USAGE 

Procedure  C0PYJ)S  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  COPY  _DS  ( argl  = vail  ; arg2  ■ val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  COPYJ)S  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  procedure  COPY-DS,  the  following  table  lists  each  argument,  its  default  value  and  mean- 
ing. 

Parameter  Default  Value  Meaning 

FR0M_DS  — Source  dataset  name 

T0_DS  — Target  dataset  name 

FROM-LDI  i Source  logical  device  index 

T0_LDI  1 Target  logical  device  index 

7.2.3  ARGUMENT  DESCRIPTIONS 

7.2.3.1  FROM-LDI 

Source  logical  device  index  (default:  l). 

7. 2.3. 2 FROM-DS 

Source  dataset  to  be  copied. 
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7.2. 3. 3 TO-LDI 

Target  logical  device  index  (default:  l). 

7.2. 3.4  TO-DS 

Target  dataset  for  copying  source  dataset  into. 

7.2.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  C0PY.DS  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 

*procedure  C0PY_DS  ( from_ldi=i;  from.ds;  to_ldi=l;  to_ds  ) 


7.2.5  LIMITATIONS 

None. 

7.2.6  ERROR  MESSAGES  AND  WARNINGS 

None. 

7.2.7  PROCEDURE  FLOWCHART 

Procedure  COPYJJS  is  self  contained  with  no  subprocedures. 

7.2.8  PROCEDURE  LISTING 

•procadura  COPT.DS  ( froa_ldi=l;  fron.da;  to_ldi=l;  to.da  ) 

. CLAMP  Procedure  to  copy  dataaat  and  ranana 


• if  < [fron.ldi]  /aq  [to.ldi]  > /than 
•daf/i  ldix  « 30 
•opan/tcratch  <ldix> 

•copy  <ldix>  « [fron.ldi] , [fron.da] 
•ranaaa  <ldix>,  [fron.da]  « [to_d>] 

•copy  [to.ldi]  « <ldix>  , [to.ds] 
•cloaa  <ldix> 

•also 

•copy  [to.ldi]  a [fron.ldi] , [fron.da] 
•ranaaa  [to.ldi] , [fron.da]  • [to.da] 
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••ndif 

•and 

7.2.9  REFERENCES 

7.1-1  Felippa,  Carlos  A.:  The  Computational  Structural  Mechanics  Testbed  Architecture: 
Volume  II  - Directives.  NASA  CR  178385,  February  1989. 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


7.2-  3 


C0PYJ5S 


Utility  Procedures 


THIS  PAGE  LEFT  BLANK  INTENTIONALLY. 


.2-4 


CSM  Testbed  Procedures  Manual 


Revised  5/24/90 


Utility  Procedures 


EIGEN 


7.3  Procedure  EIGEN 
7.3.1  GENERAL  DESCRIPTION 

Procedure  EIGEN  solves  a linear  eigenvalue  problem  using  an  eigensolver  defined  by  the 
global  macrosymbol  eigensolver_name.  If  eigensolver_name  is  EIG  or  EIG2,  a matrix 
iteration  procedure  with  subspace  iteration  is  used  as  implemented  in  processors  EIG  and 
EIG2,  respectively  (see  Section  9.1  of  reference  7.3-1).  If  eigensolver_name  is  defined 
to  be  LAN,  a Lanczos  algorithm  implemented  in  processor  LAN  will  be  used  (see  Section 

9.2  of  reference  7.3-1).  If  eigensolver_name  is  defined  to  be  LANZ,  the  alternate  Lanczos 
method  implemented  in  processor  LANZ  will  be  used  (see  Section  9.3  of  reference  7.3-1). 

7.3.2  PROCEDURE  USAGE 

Procedure  EIGEN  is  used  by  preceding  the  procedure  name  by  the  ♦call  directive,  and 
following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optioned.  The  formal 
syntax  is  as  follows: 


♦call  EIGEN  ( argl  = vail  ; arg2  = va!2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  EIGEN  are  summarized  in  the  following  table,  along 
with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are  generally 
mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this  rule  are 
noted  in  the  following  section  under  detailed  argument  descriptions. 
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For  procedure  EIGEN,  the  following  table  lists  each  argument,  its  default  value  and  meaning. 


Argument 

Default  Value 

Meaning 

CONSTRAINT_SET 

1 

Constraint  set  number 

LDI 

1 

Logical  device  index 

LOAD-SET 

1 

Load  set  number 

KNAME 

K 

First  word  of  the  name  of  the  dataset 
containing  the  assembled  stiffness  matrix. 

PROBLEM-TYPE 

’BUCK* 

Define  problem  type  for  either  buckling 
or  vibration. 

MASS-TYPE 

’CONSISTENT* 

Form  of  mass  matrix  (consistent  or  diagonal) 

ERROR.TOL 

1.0E-4 

Error  tolerance  for  eigenvalue  convergence 

N-MODES 

1 

Number  of  converged  eigenmodes  desired 

INIT.VECTORS 

0 

Number  of  iteration  vectors 

SHIFT 

0.0 

Eigenvalue  shift 

MAX-ITERS 

20 

Maximum  number  of  iterations 

Tables  7.3-1  and  7.3-2  list  the  datasets  used  or  created  by  procedure  EIGEN  and  the  pro- 
cessors invoked  by  procedure  EIGEN,  respectively. 
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Table  7.3-1  Datasets  Input/Output  by  procedure  EIGEN 


Dataset 

Description 

AMAP..ic2.isize 

Factorization  Map  for  INV 

CON../ 

Constraints 

INV.<KNAME>.; 

Factored  Stiffness  Matrix 

JDFl.BTAB.1.8 

Model  Summary 

JSEQ.BTAB.2.17 

Nodal  Elimination  Sequence 

KMAP..nsubs.ksize 

Model  Connectivity  Map 

<KN  AME  > .SPAR./d/2 

Assembled  Stiffness  Matrix 

< KGN  AME>  .SPAR./d/? 

Assembled  Geometric  Stiffness  Matrix 

<MNAME>.SPAR./d/2 

Assembled  Consistent  Mass  Matrix 

VIBR.MODE.i./t 

Vibration  eigenmodes 

VIBR.EVAL.i./t 

Vibration  eigenvalues 

BUCK.MODE.i./t 

Buckling  eigenmodes 

BUCK.EVAL.i./t 

Buckling  eigenvalues 

t » = <loadjset>  and  j = <cons_set> 


Table  7.3-2  Processors  Invoked  by  procedure  EIGEN 

Procedure 

Type 

Function 

EIG/EIG2 

Internal 

Solves  eigenproblem  using  subspace  iteration 

LAN 

External 

Solves  eigenproblem  uing  Lanczos  method 

LANZ 

External 

Solves  eigenproblem  using  Lanczos  method 

GETK 

Internal 

Converts  nodal  block  matrix  format  to  compact  sparse  for- 
mat 
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7.3.3  ARGUMENT  DESCRIPTIONS 

7.3.3. 1 PROBLEM-TYPE 

Defines  problem  type  (default:  ’BOCK’).  This  argument  selects  the  type  of  eigenproblem 
to  solve  either  buckling  (BUCK)  or  vibration  (VIBR). 

7. 3. 3. 2 ECOM-SET 

Constraint  set  number  for  eigenproblem  (default:  l).  This  argument  selects  which  con- 
straint set  to  be  used  in  solving  the  eigenproblem  which  may  be  different  from  that  used 
for  determining  the  prestress  state. 

7.5.3.3  LDI 

Logical  device  index  (default:  1). 

7.3.3 .4  LOAD-SET 

Load  set  number  (default:  1).  This  argument  selects  which  load  set  to  be  used  as  a 
right-hand  side  vector. 

7. 3. 3. 5 KWAME 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix 
(default:  K). 

7.3. 3.0  KGWAME 

First  word  of  the  dataset  name  containing  the  assembled  geometric  stiffness  matrix  (de- 
fault: KG). 

7.5.3.7  MNAME 

First  word  of  the  dataset  name  containing  the  assembled  mass  matrix  (default:  CEM). 

7.5.3.8  MASS-TYPE 

Form  of  mass  matrix  (default:  ’CONSISTENT*.  This  argument  defines  the  form  of  the  mass 
matrix  to  be  either  consistent  or  diagonal. 

7. 3. 3.0  ERROR-TOL 

Error  tolerance  for  convergence  of  eigenvalues  (default:  1.0E-4). 

7.3.3.10  N -MODES 

Number  of  converged  eigenmodes  desired  (default:  l). 
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7.3.3.11  INIT-VECTORS 

Number  of  initial  iteration  vectors  (default:  0).  If  the  default  value  is  used,  then  the 
number  of  initial  iteration  vectors  will  be  the  minimum  of  <2*  <N_MODES>>  and 

«N_MODES>+8>. 

7.3.3.12  SHIFT 
Eigenvalue  shift  (default:  0.0). 

7.3.3.13  MAX-ITER 

Maximum  number  of  iterations  in  solving  the  eigenproblem  (default:  20). 

7.3.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  EIGEN  is  used  by  preceding  the  procedure  name  by  the  *call  directive.  Proce- 
dure arguments  may  be  changed  from  their  default  values  by  including  any  or  all  of  the 
arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank  is  required 
between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

*call  EIGEN  ( KNAME  * K ; ECON.SET  - 1 ; 

LOAD. SET  * 1 ; KGNAME  = KG  ) 

Before  procedure  EIGEN  is  called  the  global  macrosymbol  eigensolver_name  should  be 
defined  as  described  in  Section  7.3.1  and  should  be  consistent  with  the  value  used  when 
procedure  FACTOR  was  called.  If  it  is  not  specified,  then  the  default  value  EIG2  will  be 
used. 

7.3.5  LIMITATIONS 

None. 

7.3.6  ERROR  MESSAGES  AND  WARNINGS 
None. 

7.3.7  PROCEDURE  FLOWCHART 

Procedure  EIGEN  is  self-contained  with  no  subprocedures. 
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7.3.8  PROCEDURE  LISTING 

♦procedure  EIGEN  ( PROBLEH.TTPE  = ’BUCK*  ; — . Problem  type:  BUCK  or  VIBR 
ldi  = 1 ; — . library  nuabar 

knaae  = *K*  ; — . First  naaa  of  aaterial  stiffness  aatriz 

kgnaaa  = *KG*  ; — . First  naaa  of  gaoaatric  stiffnass  aatrix 

anaaa  « *CEH*  ; — . First  naaa  of  aass  aatrix 

error.tol  * 1.0a-4  ; — . Error  tolaranca  on  eigenevalues 

load. sat  * 1 ; — . Load  sat  nuabar 

aass.typa  * * CONSISTENT*  ; — . Fora  of  aass  aatrix 

N.aodas  si;  — . Nuabar  of  aodas  dasirad 

INIT.vactors  = 0 ; — . Nuabar  of  initial  vactors 

SHIFT  =0.0  ; — . Eiganvalua  shift 

aax.it ars  = 20  ; — . Maxiaua  nuabar  of  it ar at ions 

acon.sat  = 1 ) . Constraint  sat  for  aiganproblaa 

. Procadura  to  solve  tha  aiganvalue  problaa  using  differant 
. eigensolvers.  Tha  aigansolvar  is  selected  using  the 
. global  aacrosyabol  "aigansolvar.naae11 . 


Perform  Eiganvalua  Analysis  (with  [kname] .SPAR  and  [kgname] .SPAR) 


♦if  < [INIT.vactors]  /eq  0 > /than 
♦d«f/i  N.vactors  « < HIN(  2*[N_aodes];  [N_aodes]+8)  > 

♦alsa 

♦daf/i  N.vactors  « [INIT.vactors] 

♦andif 


Select  aigansolvar 


Use  processor  EIG 

♦if  < ifeqs(<eigensolver.naae>;EIG)  > /than 


♦daf  NS. OVERWRITE  « <falsa> 

[XQT  EIG 

RESET  PRQB= [PROBLEM.TTPE] 

RESET  INIT*<N.vectors> , SHIFT=[shif t] , NREQ= [N.aodas] 

RESET  C0NV=[error.tol] , NDTN=[aax.itars] , con= [acon.sat] fNEWSET=[load.sat] 
RESET  K*  [knaaa] 

RESET  KG= [kgnaaa] 

RESET  N=[anaae] 

RESET  KLIB= [LDI] ,KILIB=[LDI] ,KGLIB=[LDI] »MLIB=[LDI] ,0UTLIB= [LDI] 

RESET  INLIB=[LDI] ,0LDSET=[LDI] 

STOP 

Use  processor  EIG2 
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♦alsaif  < if aqs(<aigansolvar_naaa>;EIG2)  > /then 

•daf  NS .OVERWRITE  « <falsa> 

[XQT  EIG2 

RESET  PROBs [PROBLEM.TYPE] 

RESET  INITs<N_vactors>9  SHIFT= [shift] 9 NREQ=DLnodas] 

RESET  CONTs [arror.tol] # NDTN= [max. iters] , con= [econ.sat] ,NEWSET= [load.set] 
RESET  Ks[knaaa] 

RESET  KG« [kgnaaa] 

RESET  Ms [anaaa] 

RESET  KLIBs[LDI] 9KILIBs[LDI] ,KGLIB=[LDI] ,MLIB=[LDI] 90UTLIB= [LDI] 

RESET  INLIBs[LDI] , OLDSET=[LDI] 

STOP 

♦alsaif  < ifaqs(<aigansolvar_naaa>;LAN)  > /than 

Usa  procassor  LAN 

*daf  NS_ OVERWRITE  * <falsa> 

[xqt  LAN 

RESET  PROB=[PROBLEM_TTPE]9LDIs[LDI] 

RESET  KNAM» [knaaa] 9 KGNA= [kgnaaa] , MNAM= [nnaie] 

RESET  NKs[aax_itars]  9 shifts [shift] 9 ncon=[econ_sat] 

STOP 

♦alsaif  < if aqs(<aigansolvar_nans>;LANZ)  > /than 
♦daf  NS _ OVERWRITE  s <falsa> 

♦if  < ifaqs( [PROBLEH.TYPE] ;BUCK)  > /than 
[xqt  GETK 

rasat  sipr=0,  fora=2,  aava=l 
rasat  k*k9  radosO,  krad=k9  raac=0 
[xqt  GETK 

rasat  siprsO,  fora =2 , savasi 
rasat  k«kg9  rodo=l,  krad=k,  raac=0 
[xqt  LANZ 

RESET  PR0Bs2,  plvls39check*l9  cons[acon.sat] 

RESET  nraqs [N.aodas] 9 conv= [arror.tol] 

RESET  kgs [kgnaaa] 

♦alsaif  < ifaqs( [PROBLEM.TYPE] ; VIBR)  > /than 
[xqt  GETK 

rasat  sipr*09  f om=2 , savasi 
rasat  k*k9  rado=0,  krad=k9  raac=0 
♦if  < if aqs([aass_typa]; CONSISTENT)  > /than 
*daf/i  acasasl 
[xqt  GETK 

rasat  siprs09  f ora=2,  savasi 
xasat  k* [anaaa] 9 r«do=l,  kred=k , raac=0 
♦alsa 

♦daf/i  acasasO 

♦andif 

[xqt  LANZ 

RESET  acasas<ncasa>,  plvl=3 vchack=l ,con=[acon_sat] 

RESET  nraqs [N.aodas] 9 conv= [error.tol] 

RESET  as[anaaa] 

♦andif 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


7.3-  7 


EIGEN 


Utility  Procedures 


*«ndif 

*«nd 

7.3.0  REFERENCES 

7.3-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 
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7.4  Procedure  ES 

7.4.1  GENERAL  DESCRIPTION 

Procedure  ES  is  a high-level  procedure  that  controls  the  structural  element  processors 
(ESt)-  The  Generic  Element  Processor  (GEP)  provides  a template  with  which  many  indi- 
vidual finite-element  processors  may  be  developed  and  coexist  as  independent  modules  in 
the  CSM  Testbed  (see  ref.  7.4-1).  The  GEP  template  for  structural  elements  is  referred 
to  as  ES,  and  all  element  processors  built  with  this  template  have  names  that  begin  with 
ES  (e.g.,  ESI,  ES2,  . . . ).  Each  of  these  ESt  processors  performs  all  operations  for  all  of 
the  elements  implemented  within  the  processor  — including  element  definition,  stiffness, 
force,  mass  (etc.)  generation,  and  various  pre/post-processing  functions.* 

Since  ESt  processors  are  typically  built  by  different  developers,  you  might  expect  a wide 
variety  of  User-interface  characteristics.  However,  because  of  the  generic  template  em- 
ployed, all  ESt  processors  share  the  same  command  language  and  global  datasets.  This 
means  that  once  the  user  has  learned  to  invoke  one  ESt  processor,  the  user  has  learned 
them  all. 

The  maun  difference  between  ESt  processors  will  be  in  the  specific  elements  implemented 
within  them.  Some  ESt  processors  may  have  only  one  element  type  inside.  Others  may 
have  a family  of  elements  of  a certain  class  (e.g.,  4-,  9-  and  16-node  shell  elements).  Still 
others  may  embed  an  entire  library  of  structural  elements,  containing  various  members 
of  each  class  (e.g.,  beam,  sheU,  solid).  Each  of  these  specific  element  types  is  given  a 
corresponding  name  within  each  ESt  processor;  so  that  the  combination  of  ESt  processor 
name  and  element  type  is  unique.  Thus,  to  employ  a particular  ESt  processor  correctly, 
the  user  will  have  to  consult  specific  documentation  on  the  individual  elements  contained 
within  that  processor.  Such  documentation  is  provided  in  the  CSM  Testbed  User’s  Manual 
(see  ref.  7.4-2). 

In  the  following  sections,  the  generic  features  of  ESt  processors  are  described  in  detail. 

* Exception:  Element  connectivity  for  all  element  processors  is  currently  performed  by  Testbed 
processor  ELD. 
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The  description  includes  ESi  processor  commands  and  macrosymbols,  and  the  datasets 
required  or  produced  by  these  commands  (Section  2.2),  the  high-level  procedure  interface, 
which  makes  it  possible  to  write  analysis  procedures  that  invoke  a single,  generic  procedure 
(called  ES)  to  generate  element  arrays  automatically  for  all  ESi  processors  required  in  a 
given  problem;  a glossary  of  ES  macrosymbols,  which  gives  more  detailed  definitions  for 
the  macrosymbols  and  procedure  arguments;  and  some  explicit  examples  of  how  to  use 
ESi  processors,  interactively,  or  using  the  procedure  ES  interface. 

7.4.2  PROCEDURE  USAGE 


Procedure  ES  may  be  invoked  by  the  ♦call  directive,  and  following  it  by  a list  of  arguments 
separated  by  semicolons(;)  and  enclosed  in  parentheses.  Procedure  arguments  are  order- 
independent,  and  most  have  default  values  thus  making  them  optional.  The  formal  syntax 
is  as  follows: 

♦call  ES  ( argl  = vail;  arg2  = va!2;  ...) 

where  argi  are  argument  names  and  vali  are  the  corresponding  values.  The  following  are 
valid  arguments  for  procedure  ES;  note  that  those  arguments  without  default  values  are 
mandatory,  while  the  others  are  optional. 
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Argument 

Default  Value 

Meaning 

ES-NAME 

— 

Element-type  name 

ES_NL_GE0M 

— 

Geometric  nonlinearity 

ESJfLJfATL 

Material  nonlinearity 

ESJfLJLOAD 

— 

Load  nonlinearity 

ES-PARS 

— 

Research  parameters 

ES-FROC 

— 

Processor  name 

FUNCTION 

— 

Processor  command 

ES.C0R0 

1 

Corotational  option 

ES -COUNT 

0 

Create  or  accumulate  ES.SUMMARY 

ES-DIS.DS 

STAT.DISP.1.1 

Displacement  dataset 

ES_DOF_DS 

ES . DOFS 

Active-freedom  dataset 

ES_ECC_DS 

WALL. PROP 

Eccentricity  dataset 

ES_FRC_DS 

INT.FORC.1.1 

Force  vector  dataset 

ES_R0TJ)S 

STAT  JIOTA  .1.1 

Rotation  vector  dataset 

ES_STR_L0C 

CENTROIDS 

Stress  locations 

ES_STR_DIR 

0 

Stress  directions 

ES  -STRAIN _DS 

• > 

Element  strain  dataset 

ES_STRESSJ)S 

• > 

Element  stress  dataset 

ES_SUM_DS 

ES. SUMMARY 

ES  summmary  dataset 

LDI 

1 

Logical  device  index 

NUM-C0N.DS 

1 

Number  of  constraint  datasets 
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Table  7.4-1  Datasets  Input/Output  by  Procedure  ES 


Lib  Input  Output 


Dataset 

Description 

ES. SUMMARY 

ES  Processor  Status 

ES.DOFS 

1 

<ES_NAME>.EFIL.O.nnod 

Element  Computational  Data 

DIR.<ES_NAME>.O.nnod 

Element  EFIL  Directory 

DEF.<ES_NAME>.O.nnod 

Element  Definition  (Connectivity) 

PROP.BTAB.2.* 

Material/Section  Properties 

STAT.DISP.i.; 

System  Displacement  Vector 

STAT.ROTA.uj 

System  Rotation  Vector 

QJJT.BTAB. 

Nodal  Transformations 

INT.FORC.*.; 

System  Internal  Force  Vector 

DEM.DIAG 

Diagonal  (Lumped)  Mass  Matrix 

CEM  .SPAR.;d/i 

Assembled  Consistent  Mass  Matrix 

STRN.<ES_NAME>. 

Element  Strains 

<ES_STRAIN_DS> 

STRS.<ES_NAME>. 

Element  Stresses 

<ES_STRESS_DS> 

K.SPAR.;d/^ 

Assembled  material  stiffness  matrix 

KG.SPAR  .jdfi 

Assembled  geometric  stiffness  matrix 

t t = <load_set>  and  j = <consjset> 
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Table  7.4-4  ES  PROCESSOR  MACROSYMBOL  GLOSSARY 

Macrosymbol 

Type  Definition 

ES.C 

I Continuity  of  interelement  “displacement”  field,  e.g.y 

0 =>  C°  (displacement  continuity  only) 

1 C* 1 2  (displacement  and  slope  continuity) 

ES.CLAS 

A Element  class.  Currently  valid  classes: 

BEAM,  SHELL,  SOLID,  WILD 
(See  Section  3.4  for  examples.) 

ES.CORO 


ES_COUNT 


ES-DIM 


Constitutive  interface  option  (see  Chapter  5). 


0  ^elements  use  the  standard  constitutive  interface  for 
stress  and  tangent-modulus  calculations; 


1  ^elements  compute  their  own  stresses,  but  use  standard 
constitutive  interface  for  tangent-modulus  calculations; 


>2  ^elements  compute  their  own  stresses  and  tangent- 
moduli;  standard  constitutive  interface  is  not  used. 


Corotation  switch;  employed  by  ES  processor  for  auto- 
matic treatment  of  geometric  nonlinearity  due  to  large 
rotations.  Relevant  only  if  problem  is  geometrically  non- 
linear. (See  Chapter  4 for  an  explanation  of  these  op- 
tions.) 

0 =>  Off:  corotational  operations  will  be  skipped; 

1 =>  Low-Order  Option:  basic  corotational  transforma- 
tions will  be  employed  to  enable  large  rotations; 

2 =>•  High-Order  Option:  a more  accurate  (and  expensive) 
treatment  of  large  rotations  and  consistent  linearization 
than  option  1 will  be  employed. 


Element  processor  count.  Relevant  only  for  DEFINE  EL- 
EMENTS command. 

0  =>  First  element  processor  to  be  defined;  create 
ES.SUMMARY  dataset. 

> 0 =>  Not  first  element  processor  to  be  defined;  use  ex- 
isting ES.SUMMARY  dataset  and  Increment  element  pro- 
cessor number  by  one. 


Number  of  intrinsic  element  spatial  dimensions,  e.g., 

1 if  ES.CLAS  = BEAM 

2 if  ES.CLAS  = SHELL 

2  or  3 if  ES.CLAS  = SOLID 


CSM  Testbed  Procedures  Manual 


5/23/90 


Utility  Procedures 


Procedure  ES 


Table  7.4-4 

ES  PROCESSOR  MACROSYMBOL  GLOSSARY  (continued) 

Macrosymbol 

Type 

Definition 

ESJDISJDS 

A 

Name  of  system  displacement- vector  dataset  (SYSVEC 
format).  Relevant  for  most  FORM  commands  and  some 
POST  commands.  (Default:  STAT.DISP.1.1) 

ESJDOP-DS 

A 

Name  of  element  freedom-table  dataset  (SYSVEC  for- 
mat). Relevant  only  for  DEFINE  FREEDOMS  com- 
mand. When  using  procedure  ES,  this  dataset  will  au- 
tomatically be  created,  initialized,  and  updated  cumu- 
latively with  contributions  from  all  pertinent  ES  pro- 
cessors. (Default:  ES.DOFS) 

ES-ECCJDS 

A 

First  two  words  of  dataset  name  that  contains  section 
property  data  including  reference  surface  eccentricities. 
(Default:  WALL.PROP). 

ES_EXPE.CMD 

A 

Complete  EXPE  command  line  appropriate  for  defin- 
ing elements  with  processor  ELD.  This  macrosymbol  is 
constructed  only  in  response  to  a call  to  procedure  ES 
with  FUNCTION=’DEFINE  ELEMENTS’. 

ES_FRC_DS 


ES_LOAD_FACTOR 


ES-LO  AD-SET 


Name  of  system  force-vector  dataset  (SYSVEC  format), 
where  element  distributed  forces  (internal  and/or  ex- 
ternal) are  to  be  assembled.  Relevant  only  for  FORM 
FORCE  command,  in  which  case  this  vector  must  be 
created  and  initialized  before  issuing  the  command  (or 
calling  procedure  ES).  Contributions  from  all  pertinent 
ES  processors  will  be  assembled  into  this  vector  if  proce- 
dure ES  is  called  with  argument  FUNCTION  = ’FORM 
FORCE...’.  (Default:  INT.FORC.1.1) 


Load  factor.  (Default:  1.0) 


Load  set  number.  (Default:  1) 
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Table  7.4-4 

\ 

ES  PROCESSOR  MACROSYMBOL  GLOSSARY  (continued) 

Macrosymbol 

Type 

Definition 

ES_MASS_DIAG 

A 

First  word  of  the  dataset  name  for  a diagonal  mass  matrix. 
(Default:  DEM). 

ES_MASS_DS 

A 

First  two  words  of  the  dataset  name  for  a diagonal  mass 
matrix. 

(Default:  <ES_MASS_DIAG>.DIAG). 

ESJMAME 

A 

Name  of  element  type,  within  current  ES  processor,  to 
be  processed  by  subsequent  commands.  (For  example 
EX97  would  be  a valid  element-type  name  within  pro- 
cessor ESI.) 

ES_NDOF 

I 

Number  of  freedoms  per  element  node. 
Currently  valid  options  (2,  3 or  6),  e.y., 

2 for  2-D  solid  elements  (u,v) 

3 for  3-D  solid  elements  (u,vyw) 

6 for  beam,  plate  or  shell  elements  (u,v,it?,0x,0y,0z) 

ES-NEE 

— 

I 

Number  of  element  equations; 
= ES.NEN  x ES.NDOF. 

ES_NEN 


Number  of  element  nodes. 


ES_NIP 

I Number  of  element  integration  points;  t.e.,  points  at  which 

stresses  (continuum  or  resultants,  depending  on  element 
type)  are  stored. 

ES_NL_GEOM 

I Geometric  nonlinearity  switch; 

0 =>  Off:  problem  is  geometrically  linear  (small  displace- 
ments / rot  at  ions  ) ; 

1 =>  Low-Order  Option:  problem  is  geometrically  non- 
linear, but  elements  should  use  linear  strain-displacement 
relations.  Meaningful  only  if  ES-CORO  > 0,  so  that  large 
rotations  can  be  handled  automatically  by  the  corota- 
tional  algorithm; 
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Table  7.4-4 

ES  PROCESSOR  MACROSYMBOL  GLOSSARY  (continued) 

Macrosymbol 

Type 

Definition 

2 =>  High-Order  Option:  problem  is  geometrically  non- 
linear and  elements  should  use  nonlinear  element  strain- 
displacement  relations.  May  be  used  in  conjunction  with 
ES-CORO  > 0 to  obtain  higher-order  accuracy  for  beam 
and  shell  elements  that  employ  moderate-rotation  strain- 
displacement  relations; 

3 =>  same  as  2 plus  finite  strains  are  expected. 

ES_NL_LOAD 

I 

Load  nonlinearity  switch; 

1 =>  process  displacement-dependent  element  loads  only; 
0 =>•  process  displacement-independent  element  loads  only. 

ES_NL_MATL 

I 

Material  nonlinearity  switch; 

1 =>  element  is  materially  nonlinear; 
0 =>  element  materially  linear. 

ES_NORO 

I 

Element  normal-rotation  parameter.  Relevant  only  for  au- 
tomatic freedom  suppression  of  plate/shell  elements.  In- 
dicates minimum  angle  (in  degrees)  between  shell  element 
normal  vector  and  any  computational  basis  vector  — at 
each  element  node  — below  which  the  corresponding  rota- 
tional freedom  should  be  suppressed  if  no  other  elements 
are  attached; 

=0  =>•  Element  has  normal-rotation  (“drilling”)  stiffness; 
normal  rotational  freedoms  will  automatically  be  sup- 
pressed. 


>0  =>•  Element  does  not  have  normal-rotation  (“drilling”) 
stiffness;  it  is  assumed  that  rotational  stiffness  exists 
about  any  computational  axis  that  makes  an  angle  of  at 
least  <ES_NORO>  degrees  with  the  element  normal  vec- 
tor at  an  element  node. 
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Table  7.4-4  ES  PROCESSOR  MACROSYMBOL  GLOSSARY  (continued) 


Macrosymbol  Type  Definition 


ESJNPAR 


Number  of  element  research  parameters  in  array  ES.PARS. 


ES-NSTR 


ES.OPT 


ES-PARS 


ESJPROC 


Number  of  stress  components  per  integration  point.  Cur- 
rently valid  options  compatible  with  standard  constitutive 
interface: 


8 for  ES.CLAS  = SHELL  and  ES_C  = 0; 


6 for  ES.CLAS  = SOLID  and  ES_DIM  = 3; 


6 for  ES.CLAS  = SHELL  and  ES.C  = 1; 


6 for  ES.CLAS  = BEAM  and  ES.C  = 0; 


4 for  ES.CLAS  = BEAM  and  ES.C  = 1; 


3 for  ES.CLAS  = SOLID  and  ES-DIM  = 2. 


Element-type  option  number.  Meaningful  only  to  the  ele- 
ment developer;  it  is  the  developer’s  numerical  equivalent 
of  ES.NAME. 

Array  of  element  research  parameters.  Meaning  depends 
on  specific  element  type.  (Consult  appropriate  section  in 
CSM  Testbed  User’s  Manual,  ref.  4). 


Name  of  element  (ES)  processor  to  be  executed  (e.y.,  ESI, 
ES2,  . . .);  currently  relevant  only  as  an  argument  for  pro- 
cedure ES,  and  only  when  argument  FUNCTION  = ’DEI- 
FINE  ELEMENTS’. 
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Table  7.4-4  ES  PROCESSOR  MACROSYMBOL  GLOSSARY  (continued) 


Macrosymbol 

Type 

Definition 

ES_PROJ 

I 

Rigid-body  projection  option.  Used  to  automatically  re- 
move (most  of)  the  spurious  energy  generated  by  some 
elements  during  infinitesimal  rigid-body  motion.  This  is 
performed  hy  operating  on  the  element  stiffness  and  force 
arrays  with  a projection  matrix  (or  projector ).  The  pro- 
jector, and  its  derivative,  can  have  a beneficial  effect  on 
element  accuracy  in  both  linear  and  geometrically  nonlin- 
ear regimes. 

0 =>Off:  projection  will  be  omitted; 

1 =$►  Low-order  Option:  basic  projection  will  be  included; 

2 =*► High-order  Option:  basic  projection  plus  a differential 
correction  to  the  geometric  stiffness  will  be  included. 

ES-ROTJDS 

A 

Name  of  system  rotation  pseudo- vector  dataset  (SYSVEC 
format).  Relevant  for  most  FORM  commands  dur- 
ing geometrically  nonlinear  analysis,  but  only  if  ele- 
ments with  rotational  freedoms  are  involved.  (Default: 
STAT.ROTA.1.1) 

ESJSHAP 

A 

Shape  of  element  surface  used  to  define  coordinate  triad; 
currently  recognized  options:  LINE,  TRIA  or  QUAD. 

ESJSTOR 

I 

Number  of  “private”  variables  to  be  stored/retrieved  for 
the  element  developer  in  dataset  EFIL.<ES_NAME>. 

ESJSTR_DIR 

I 

Element  stress/strain  direction  option.  Indicates  in  which 
coordinate  system  element  stresses  or  strains  in  datasets 
defined  by  <ESJSTRESSJ)S>  or  <ES_STRAINJ)S> 
(respectively)  will  be  computed.  Relevant  only  for  com- 
mand = ’FORM  STRAIN’  or  ’FORM  STRESS’.  Valid 
options: 

0 =>  element  stress  coordinate  system 

1 =>  material  axes  {xm,ym,zm}  = {xg,yg,zg} 

2 =*►  material  axes  {ym,zm,xm}  = {yg,zgyxg} 

3 =>•  material  axes  {zm,xm,ym}  = {zg,xg,yg} 

(Note:  For  isotropic  materials,  the  first  material  axis  is 
replaced  by  the  corresponding  global  axis;  see  the  SREF 
command  under  processor  ELD  in  the  Testbed  User’s 
Manual  (ref.  4)  for  details.  Default:  0) 
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Table  7.4-4 

ES  PROCESSOR  MACROSYMBOL  GLOSSARY  (continued) 

Macrosymbol 

Type 

Definition 

ES_STR_LOC 

A 

Element  stress/strain  evaluation  point  option.  Indi- 
cates where  stresses  or  strains  in  datasets  defined  by 
<ES_STRESS_DS>  or  <ES_STRAIN_DS>  (respectively) 
will  be  computed.  Relevant  only  for  command  = ’FORM 
STRAIN’  or  ’FORM  STRESS’.  Currently  valid  options: 

CENTROIDS  =>  element  centroids;  creates  record  group: 
CENTROIDS_<ES_STR  JDIR>  .1  :nel 

NODES  =>  element  nodes;  creates  record  group: 
N ODES_<ES  JSTR_DIR>  .1  :nel 

INTEG_POINTS  =>  element  integration  points;  creates: 
INTEG.PTS_<ES_STR_DIR>.l:nel 

where  “nel”  is  the  number  of  elements  in  the  dataset, 
and  where  macrosymbol  ES_STR_DIR  designates  the  di- 
rections of  the  stress/strain  components,  and  is  defined 
elsewhere  in  this  Glossary. 

(Default:  ’CENTROIDS’) 

ES_STRAIN_DS 

A 

Third  part  of  element  strain  dataset  name.  The  first 
name  is  always  STRN;  the  second  name  is  always  the 
element-type  name,  i.e.,  <ES_NAME>;  and  the  third 
name,  <ES_STRAIN_DS>  must  be  a string  of  integers 
separated  by  periods. 

For  example,  if  <ES_STRAIN_DS>  = <step>.<iter> 
where  <step>  = 20  and  <iter>  = 3,  and  if  the  element- 
type  name  were  EX97,  then  the  full  dataset  name  would 
be:  STRN.EX97.20.3 

Relevant  only  for  command  = ’FORM  STRAIN’. 

(No  default;  absence  means  that  strains  will  be  stored 
(embedded)  within  dataset  EFIL.<ES_NAME>  only  — 
currently  not  implemented.) 
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Table  7.4-4 

ES  PROCESSOR  MACROSYMBOL  GLOSSARY  (concluded) 

Macrosymbol 

Type  Definition 

ES_STRESS_DS 


ES_SUM_DS 


ES.TWIS 


ES_TGC_DS 


Third  part  of  element  stress  dataset  name.  The  first 
name  is  always  STRS;  the  second  name  is  always  the 
element-type  name,  $.e.,  <ES_NAME>;  and  the  third 
name,  <ES_STRESS_DS>  must  be  a string  of  integers 
separated  by  periods.  For  example,  if  <ES_STRESS_DS> 
= <step>.<iter>, 

where  <step>  = 20  and  <iter>  = 3,  and  if  the  element- 
type  name  were  EX97,  then  the  full  dataset  name  would 

be:  STRS.EX97.20.3 

Relevant  only  for  command  = ’FORM  STRESS’. 

(No  default;  absence  means  that  stresses  will  be  stored 
(embedded)  within  dataset  EFIL.<ES_NAME>  only.) 


Name  of  ES  summary  dataset,  which  contains  nominal 
records  corresponding  to  most  of  the  macrosymbol  pa- 
rameters appearing  in  this  Glossary  — for  each  ES  pro- 
cessor/element defined  in  the  model.  Relevant  for  all  ES 
commands.  (Default:  ES. SUMMARY) 


Sign  of  twisting  curvature  for  shell  elements. 


+1  =>twist  based  on  continuum  definition  of  shear 
strain; 


—1  =»twist  based  on  negative  of  continuum  definition. 


(Note:  The  default  convention  for  constitutive  matrices 
output  from  processor  LAU  corresponds  to  the  -1  op- 
tion. Hence  processor  ES  compensates  for  this  reversal 
if  ES.TWIS  = +1.) 


Name  of  nodal  transformation  dataset  (QJJT.BTAB.*.*) 


ES.XYZJDS 


LDI 


Name  of  nodal  coordinate  dataset  (JLOC.BTAB.*.*) 


Logical  device  index  or  library  number  for  archiving  and 
retrieving  data.  (Default:  1) 
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7.4.3  ARGUMENT  DESCRIPTION 

7.4.3. 1 ES.CORO 

Corotation  switch;  employed  by  ESt  processors  for  automatic  treatment  of  geometric  non- 
linearity due  to  large  rotations.  Relevant  only  if  problem  is  geometrically  nonlinear.  (See 
Chapter  4 of  reference  7.4-1  for  an  explanation  of  these  options.)  If  ES.CORO  equals  zero, 
then  the  corotational  operations  will  be  skipped.  If  ES.CORO  equals  one  (low-order  option), 
then  the  basic  corotational  transformations  will  be  employed  to  enable  large  rotations.  If 
ES.CORO  equals  two  (high-order  option),  then  a more  accurate  (and  expensive)  treatment 
of  large  rotations  and  consistent  linearization  than  option  1 will  be  employed. 

7.4.3. 2 ES.COUNT 

Element  processor  count  (default:  0).  This  argument  is  used  to  create  and/or  accumu- 
late data  in  the  ES. SUMMARY  dataset  for  finite  element  models  using  multiple  element 
processors. 

7.4.3.S  ES-DIS-DS 

Name  of  system  displacement-vector  dataset  in  SYSVEC  format  (default:  STAT.DISP.  1 . 1). 
Relevant  for  most  FORM  commands. 

7.4. 3.4  ES_DOF_DS 

Name  of  element  freedom-table  dataset  (SYSVEC  format).  Relevant  only  for  DEFINE  FREE- 
DOMS command.  When  using  procedure  ES,  this  dataset  will  automatically  be  created, 
initialized,  and  updated  cumulatively  with  contributions  from  all  pertinent  ES*  proces- 
sors. (Default:  ES.DOFS) 

7.4. 3. 5 ES-ECC-DS 

Name  of  element  section  property  eccentricity  dataset  (default:  HALL. PROP).  Relevant  for 
all  FORM  commands. 
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T.4.3.6  ES-FRC-DS 

Name  of  system  force-vector  dataset  in  SYSVEC  format,  where  element  distributed  forces 
(internal  and/or  external)  are  to  be  assembled  (default:  STAT.REAC.l.l).  Relevant  only 
for  FORH  FORCE  command,  in  which  case  this  vector  must  be  created  and  initialized  before 
issuing  the  command  (or  calling  procedure  ES).  Contributions  from  all  pertinent  ESi  pro- 
cessors will  be  assembled  into  this  vector  if  procedure  ES  is  called  with  argument  FUNCTION 
= ’FORM  FORCE. 

7.4.3. 7 ES-NAME 

Name  of  element  type,  within  current  ESi  processor,  to  be  processed  by  subsequent  com- 
mands. (For  example,  EX97  would  be  a valid  element-type  name  within  processor  ESI.) 

7.4.5.8  ES-NL-GEOM 

Geometric  nonlinearity  switch.  If  ES-NL-GEOM  equals  zero  (no  corotational  frames),  then 
the  problem  is  geometrically  linear  (small  displacements/rotations).  If  ES-NL-GEOM  equals 
one  (low-order  option),  then  the  problem  is  geometrically  nonlinear,  but  elements  should 
use  linear  strain-displacement  relations.  Meaningful  only  if  ES-CORO  > 0,  so  that  large 
rotations  can  be  handled  automatically  by  the  corotational  algorithm.  If  ES-NL_GE0M  equals 
two  (high-order  option),  then  the  problem  is  geometrically  nonlinear  and  elements  should 
use  nonlinear  element  strain-displacement  relations.  May  be  used  in  conjunction  with 
ES.C0R0  > 0 to  obtain  higher-order  accuracy  for  beam  and  shell  elements  that  employ 
moderate-rotation  strain-displacement  relations. 

7.4.5.9  ES-ML-MATL 

Material  nonlinearity  switch.  If  ESJfLJIATL  is  greater  than  zero,  then  the  element  is 
materially  nonlinear.  If  ESJNL-MATL  is  zero,  then  the  element  is  materially  linear. 

7.4.3.10  ES-NL-LOAD 

Load  nonlinearity  switch.  If  ES-NL-LOAD  is  greater  than  zero,  then  the  element  loads 
are  displacement  dependent.  If  ES_NL-L0AD  equals  zero,  then  the  element  loads  are  not 
displacement  dependent. 
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7.4.3.11  ES-PARS 

Array  of  element  research  parameters.  Meaning  depends  on  specific  element  type.  Consult 
appropriate  section  in  CSM  Testbed  User’s  Manual,  ref.  7.4-2. 

7.4.3.12  ES-PROC 

Name  of  element  (ES)i  processor  to  be  executed  (e.g.,  ESI,  ES2,  ...);  currently  relevant 
only  as  an  argument  for  procedure  ES,  and  only  when  argument  FUNCTION  = ’DEFINE 
ELEMENTS*. 

7.4.3.13  ES_R0TJ?S 

Name  of  system  rotation  pseudo- vector  dataset  in  SYSVEC  format  (default:  STAT.  ROTA  .1.1). 
Relevant  for  most  FORM  commands  during  geometrically  nonlinear  analysis;  but  only  if  el- 
ements with  rotational  freedoms  are  involved. 

7.4.3.14  ES_STR_L0C 

Element  stress/strain  location  option  (default:  ’CENTROIDS*).  Indicates  where  stresses  or 
strains  in  datasets  defined  by  <ES_STRESS_DS>  or  <ES_STRAIN_DS>  (respectively)  will  be 
computed.  Relevant  only  for  FUNCTION  = ’FORM  STRAIN’  or  ’FORM  STRESS’.  Currently 
valid  options: 

• CENTROIDS  =>  element  centroids;  creates  record  group: 

CENTROIDS_<ES_STR_DIR> . 1 :nel 


• NODES  =>  element  nodes;  creates  record  group: 

NODES_<ES_STRJ)IR> . 1 :nel 

• INTEGJPOINTS  =>  element  integration  points;  creates: 

INTEG_PTS_<ES_STR_DIR> . 1 :nel 

where  “nel”  is  the  number  of  elements  in  the  dataset,  and  where  macrosymbol  ES_STR_DIR 
designates  the  directions  of  the  stress/strain  components,  and  is  defined  elsewhere  in  this 
glossary. 


7.4-  16 


CSM  Testbed  Procedures  Manual 


5/23/90 


Utility  Procedures 


Procedure  ES 


7.4.3.15  ES-STR-DIR 

Element  stress/strain  direction  option  (default:  E).  Indicates  in  which  coordinate  system 
element  stresses  or  strains  in  datasets  defined  by  <ES_STRESS_DS>  or  <ES_STRAIN_DS>  (re- 
spectively) will  be  computed.  Relevant  only  for  FUNCTION  = ’FORM  STRAIN’  or  ’FORM 
STRESS  ’ . Currently  valid  options  include  E for  the  element  stress  coordinate  system,  M for 
the  material  coordinate  system,  and  G i for  the  coordinate  system  whose  x axis  corresponds 
to  global  coordinate  axis 

7.4.3.16  ES-STRAIN-DS 

Third  part  of  element  strain  dataset  name.  The  first  name  is  always  STRN;  the 
second  name  is  always  the  element-type  name,  i.e.,  <ES_NAME>;  and  the  third  name, 
<ES_STRAIN_DS>  must  be  a string  of  integers  separated  by  periods  (see  CSM  Testbed  Data 
Library  Description,  reference  7.4-3).  For  example,  if  <ES_STRAIN_DS>  = <step>.<iter> 
where  <step>  = 20  and  <iter>  = 3,  and  if  the  element-type  name  were  EX97,  then  the 
full  dataset  name  would  be:  STRN.EX97.20.3.  Relevant  only  for  FUNCTION  * ’FORM 

STRAIN*.  No  default;  absence  means  that  strains  will  be  stored  (embedded)  within  dataset 
EFIL.<ES_NAME>  only  — currently  not  implemented. 

7.4.3.17  ES-STRESS-DS 

Third  part  of  element  stress  dataset  name.  The  first  name  is  always  STRS;  the  second  name 
is  always  the  element-type  name,  i.e.,  <ES_NAME>;  and  the  third  name,  <ES_STRESS_DS> 
must  be  a string  of  integers  separated  by  periods  same  as  previously  stated.  For  example, 
if  <ES_STRESSJDS>  = <step> . <iter>,  where  <step>  * 20  and  <iter>  = 3,  and  if  the 
element-type  name  were  EX97,  then  the  full  dataset  name  would  be:  STRS.EX97.20.3. 

Relevant  only  for  FUNCTION  * ’FORM  STRESS*.  No  default;  absence  means  that  stresses 
will  be  stored  (embedded)  within  dataset  EFIL . <ES _N AME>  only. 

7.4.3.18  ES_SUM_DS 

Name  of  ES  summary  dataset,  which  contains  nominal  records  corresponding  to  most  of 
the  macrosymbol  parameters  appearing  in  this  glossary  — for  each  ES*  processor /element 
defined  in  the  model  (default:  ES. SUMMARY).  Relevant  for  all  ES  commands. 
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7.4.3.10  FUNCTION 

All  structural  element  (ESt)  processors  based  on  the  generic  element  processor  template, 
share  the  same  processor  commands.  This  makes  it  easier  for  the  User,  and  enables  the 
construction  of  a generic  command  procedure  to  handle  any  combination  of  ESt  proces- 
sors. The  commands  recognized  by  ESt  processors  fall  into  three  categories:  INITIALIZE, 
DEFINE,  and  FORM,  which  roughly  correspond  to  preprocessing  and  computation  phases  of 
analysis.  The  INITIALIZE  command  initializes  the  element  data.  The  DEFINE  commands 
are  used  to  prepare  or  re-format  model  definition  datasets,  such  as  element  connectivity, 
freedom  activity,  loads,  etc.*  The  FORM  commands  are  used  to  form  element  computational 
data,  such  as  stiffness  matrices,  force  vectors,  etc.  Table  7.4-5  provides  a summary  of  ES 
processor  commands  and  their  respective  functions. 


* Again,  element  connectivity  is  currently  performed  using  Testbed  processor  ELD. 
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Table  7.4-5  Summary  of  Generic  ES  Processor  Commands 

Command 

Description 

INITIALIZE 

Initialize  element  data 

DEFINE  ELEMENTS 

FREEDOMS 

Define  element  parameters 
Perform  automatic  DOF 
suppression 

FORM  STIFFNESS  [/MATL/GEOM/LOAD/TANG] 

FORCE  [/INT/EXT/RES/DYN] 

MASS  [/CONS/DIAG] 

STRAIN 

STRESS 

Form  element  stiffness 
Form  element  force 
Form  element  mass 
Form  element  strains 
Form  element  stress 

In  addition  to  these  commands,  ESt  processors  can  be  controlled  with  a number  of  built-in 
macrosymbols , all  of  which  begin  with  ES_.  The  macrosymbols  typically  set  logical  switches 
and/or  control  parameters,  and  allow  re-assignment  of  database  names  from  their  default 
values. 
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Table  7.4-6  ANALYSIS/COMMAND  CORRESPONDENCE 
ES  Processor  Commands  vs  Analysis  Type 

Analysis  Type 

Processor  Commands 

All  Preprocessing 

INITIALIZE 
DEFINE  ELEMENTS 
DEFINE  FREEDOMS 

Linear  Statics 

FORM  STIFFNESS/MATL 
FORM  FORCE/EXT 

Linear  Dynamics 

FORM  STIFFNESS/MATL 
FORM  MASS/CONS 
FORM  FORCE/EXT 

Buckling  Eigenvalue 

FORM  STIFFNESS/MATL 
FORM  STIFFNESS/GEOM 
FORM  FORCE/EXT 

Vibration  Eigenvalue 

FORM  STIFFNESS/MATL 
FORM  MASS /{CONS  | DIAG} 

Nonlinear  Statics 

FORM  STIFFNESS/TANG 
FORM  FORCE/INT 
FORM  FORCE/EXT 
FORM  FORCE/RES 

Nonlinear  Dynamics 

FORM  STIFFNESS/TANG 
FORM  MASS/ {CONS  | DIAG} 
FORM  FORCE/INT 
FORM  FORCE/EXT 
FORM  FORCE/DYN 
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7.4.4  PROCEDURE  FLOWCHART 

ES  (main  procedure) 

ES.D0FS  (automatic  DOF  suppression  for  ES*) 

7.4.5  LIMITATIONS 


Procedure  ES  assumes  that  all  datasets  either  required  or  generated  will  reside  on  library 
one  (LDI=1). 

7.4.6  ERROR  MESSAGES  AND  WARNINGS 

None. 


7.4.7  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  ES  may  be  used  by  preceding  the  procedure  name  by  the  ♦call  directive.  Pro- 
cedure arguments  may  be  changed  from  their  default  values  by  including  any  or  all  the 
arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank  is  required 
between  the  end  of  the  procedure  name  and  the  left  parenthesis. 


♦call  ES  ( FUNCTION 

2 

; — Processor  command 

ES.PROC 

= 

; — . Processor  name 

ES.NAME 

= 

; — . Element-type  name 

ES.PARS 

* 

0.0 

; — . Research  parameters 

ES.CORO 

2 

1 

; — . Corotational  option 

es_nl_geom 

2 

<false> 

; — . Geom.  nonlinearity 

ES.NL.MATL 

2 

<false> 

; — . Natl,  nonlinearity 

ES.NL.LOAD 

2 

<false> 

; — . Load  nonlinearity 

ES.DIS.DS 

2 

STAT.DISP 

; — . Displacement  dataset 
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ES.DOF.DS  = 

ES . DOFS 

ES_ECC_DS 

ES.ECCEN 

ES.FRC.DS 

STAT.REAC 

ES_R0T_DS 

STAT.ROTA 

ES.SUM.DS 

ES. SUMMARY 

ES_STRAIN_DS 

= <false> 

ES.STRESS.DS 

* <false> 

ES_STR_L0C 

* ’CENTROIDS* 

ES.STRJDIR 

= *E» 

NUM_C0N_DS 

= 1 

LDI 

= 1 

) 


— . Active-freedom  dataset 

— . Eccentricity  dataset 

— . Force-vector  dataset 

— . Rotation-vector  dataset 

— . ES  summary  dataset 

— . Element  strain  dataset 

— . Element  stress  dataset 

— . Stress  locations 

— . Stress  directions 

— . No.  of  constraint  datasets 

— . Logical  device  index 


The  following  examples  illustrate  how  element  processors  based  on  the  generic  structural- 
element  (ES)  processor  template  can  be  used  to  perform  structural  analysis  with  the  CSM 
Testbed.  For  simplicity,  we  consider  preprocessing  (t.e.,  model  generation),  linear  analysis, 
nonlinear  analysis,  and  postprocessing  (t.e.,  stress  recovery,  etc.)  examples  separately.  The 
differences  between  employing  individual  ESt  processors  directly  versus  accessing  them 
using  the  generic  ES  procedure  interface  will  be  stressed,  with  an  intended  bias  towards 
the  latter. 


7. 4. 7.1  Preprocessing  Examples 


For  clarity,  a very  simple  problem  will  be  considered,  and  the  use  of  the  generic  structural- 
element  processor  illustrated  by  showing  all  of  the  steps  involved  in  generating  a finite 
element  (FE)  model  for  this  problem.  Both  the  physical  problem  and  the  discrete  model 
to  be  used  is  given  in  Figure  7.4-1.  The  problem  is  a rectangular  plate  (10  in.  by  5 in.), 
cantilevered  on  one  edge,  and  loaded  on  the  other  by  a concentrated  lateral  force.  For 
the  model,  a 3 by  3 grid  is  used  which  corresponds  to  a 2 by  2 mesh  of  4-node  plate/ shell 
elements.  The  Testbed  procedure  for  this  model  is  given  in  Figure  7.4-2.  The  interpretation 
of  each  line  of  the  procedure  will  now  be  described. 
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The  ^procedure  statement  in  Figure  7.4-3  shows  the  arguments  (parameters)  for  the 
procedure  and  sets  default  values  for  each  of  them  (x-length,  y-length,  thickness , elastic 
modulus,  Poisson’s  ratio,  and  precision).  Thus  the  dimensions  and  properties  of  the  plate 
model  are  parameterized,  but  the  finite  element  discretization  is  fixed. t The  next  two  lines 
( [xqt  TAB  and  START  9)  run  the  processor  TAB  and  reserve  space  for  a total  of  9 nodes. 
Then,  the  JLOC  command  and  subsequent  data  define  the  global  coordinates  for  these  9 
nodes  in  a rectangular  3 by  3 grid. 

Material  and  section  properties  are  then  defined  by  first  executing  processor  AUS  to  tabu- 
late the  raw  data,  and  then  executing  processor  LAU  to  generate  an  integrated  constitutive 
matrix  for  shell  elements  (see  the  CSM  Testbed  User’s  Manual  for  details  on  processor 
LAU). 

The  key  portion  of  the  example  begins  with  the  *call  to  procedure  ES  with  FUNCTION  * 

* DEFINE  ELEMENTS  * , in  which  element  type  EX42  of  processor  ESI  is  registered  for  partici- 
pation in  the  model.  This  call  also  causes  a number  of  element  type-oriented  macrosymbols, 
all  beginning  with  ES_,  to  be  defined  — for  example,  ES-NEN  (number  of  element  nodes), 
ES.NIP  (nuber  of  element  integration  points),  etc.  These  macrosymbol  values  are  automat- 
ically built  into  the  character  string  macrosymbol  ES-EXPE-CMD  (by  procedure  ES),  which 
serves  as  the  EXPE  command  for  processor  ELD.  Note  that  in  the  PLATEJIODEL  exam- 
ple, <ES_EXPE_CMD>  appears  immediately  after  [XQT  ELD  (execute  processor  ELD).  This 
sequence  causes  the  ES-EXPE-CMD  macrosymbol  to  expand  internally  into  the  following 
commmand  line: 

EXPE  <ES_NAME>  <ES_HEH>  <ES_OPT>  <ES_NEN>  <ES_ND0F>  — 
<ES_ST0R>  1 10<ES_DIM>  <CSMJPRECISION> 

which  would  eventually  decode  into: 

fEXPE  EX42  4 2 4 6 0 1 102  2 1 

The  execution  of  processor  ELD  with  the  above  EXPE  command  is  necessary  for  generation 
of  various  element  datasets  such  as  DEF.EX42.*  and  DIR.EX42.*  (see  the  CSM  Testbed 


t In  practice,  it  is  often  the  other  way  around:  The  model  properties  and  dimensions  are  fixed, 
while  the  discretization  is  varied.  We  have  fixed  the  discretization  here  merely  to  simplify 
the  example. 
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User’s  and  Dataset  Manuals,  references  7.4.2  and  7.4-3,  respectively).  Note  that  the  ES_ 
macrosymbols  referenced  in  this  example  are  all  described  in  the  Macrosymbol  Glossary 
in  Table  7.4-4. 

Next,  the  NSECT  command  is  used  as  a section  property  pointer.  HSECT=1  means  that 
the  integrated  constitutive  matrix  stored  in  the  first  column  of  dataset  PROP.BTAB.2.101 
will  be  employed  by  all  elements  whose  nodal  connectivity  is  defined  on  the  following 
lines.  The  element  nodal  connectivity  is  then  defined  for  four  4-node  elements.  Note 
that  the  numbering  convention  is  counter-clockwise  within  each  element  (see  Fig.  2.2-1). 
Boundary  conditions  and  loads  are  then  defined  using  the  CON  command  of  processor 
TAB,  and  the  SYSVEC  command  of  processor  AUS,  respectively  (see  Figure  7.4-2).  The 
CON  command  suppresses  all  freedoms  along  x = 0 (the  built-in  edge),  and  the  SYSVEC 
command  distributes  transverse  nodal  forces  along  the  other  edge,  which  add  up  to  a unit 
load.  Note  that  both  boundary  conditions  and  loads  have  been  defined  with  respect  to 
nodes  rather  than  elements.  Automatic  consistent  element  nodal  load  generation  will  be 
available  once  the  DEFINE  LOADS  command  has  been  implemented  within  the  ES  processor 
shell. 

Finally,  procedure  ES  is  called  again  to  perform  automatic  degree  of  freedom  suppression , 
using  the  DEFINE  FREEDOMS  command.  In  this  case,  the  effect  will  be  for  processor  ESI  to 
suppress  drilling  rotational  freedoms  (i.e.,  the  6th  degree  of  freedom)  at  all  nodes,  since 
element  type  EX42  has  no  stiffness  associated  with  these  freedoms.  (Note:  If  the  plate  had 
blade  stiffeners  which  were  also  modeled  with  EX42  elements,  all  6 degrees  of  freedoms  at 
nodes  along  the  plate/stiffener  intersection  lines  would  be  retained,  since  at  least  one  of 
the  intersecting  elements  at  those  nodes  would  possess  the  necessary  stiffness.) 
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♦Procedure  PLATE.MODEL  ( Lx=10.;  Ly=5 . ; h= . 1 ; E*l.e7;  PR=.3;  prec=2  ) 

[xqt  TAB 
START  9 

. GENERATE  NODES  ( rectangular  grid,  3x3  nodes  ) 

JLOC 

1 0.,  0.  , 0.  [Lx],  0.  , 0.  3,  1,  3 

3 0.,  [Ly],  0.  [Lx],  [Ly] , 0. 

. TABULATE  MATERIAL  AND  SECTION  PROPERTIES 

[xqt  AUS. 

TABLE(NI=16,NJ=1):  OMB  DATA  11.. 

1=1, 2, 3, 4, 5, 6 : J=1  : [E]  [PR]  [E]  <G>  <G>  <G> 

TABLE(NI=3,NJ=1,ITYPE=0) : LAM  OMB  1 1 
1=1, 2, 3 . : J=l:  1 [h]  0.0. 

. RUN  CONSTITUTIVE  PRE-PROCESSOR 

[xqt  LAU 

. GENERATE  ELEMENTS 


Figure  7.4-1  Sample  Preprocessing  Procedure. 
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. IMPOSE  BOUNDARY  CONDITIONS 

[xqt  TAB 
CON 

ZERO  1:6  : 1 : 4 : 9 
. APPLY  LOADS 
[xqt  AUS 

SYSVEC  : APPL  FORC  1 

i=3  : j=3  : .26  : i=3  : j»6  : .50  : i*3  : j*9  : .25 

♦call  ES  ( function  = ’DEFINE  FREEDOMS’  ) 

♦end 

Figure  7.4-2  Sample  Preprocessing  Procedure. 
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7.4.8  Linear  Analysis  Examples 

A sample  linear  static  analysis  procedure,  which  employs  the  procedure  ES  to  invoke  the 
appropriate  ES*  processors  is  shown  in  Figure  7.4-4.  For  purposes  of  illustration,  the 
problem  has  been  kept  simple  (notice  that  there  are  no  procedure  arguments),  but  keep 
in  mind  that  many  analysis  procedures  may  involve  more  sophisticated  features.  The 
procedure  in  Figure  7.4-4  can  be  read  as  follows.  The  [xqt  E directive  causes  processor  E 
to  construct  *.EFIL.*  datasets  for  all  participating  element  types.  Note  that,  while  space 
for  these  datasets  is  reserved  in  the  database,  meaningful  data  has  not  yet  been  deposited 
there. 

The  first  call  to  procedure  ES  then  causes  INITIALIZE  to  be  stored  in  the  EFIL  datasets 
by  all  participating  ESt  processors  — as  prescribed  by  previous  calls  to  procedure  ES 
with  function  = ’DEFINE  ELEMENTS’.  For  example,  if  the  preprocessing  example  given 
in  Figure  7.4-3  had  preceded  the  call  to  L.STATIC,  then  only  processor  ESI,  element  type 
EX42,  would  be  invoked  to  INITIALIZE.  More  information  on  the  effect  of  the  INITIALIZE 
command  may  be  found  in  Section  2.2.  The  second  call  to  procedure  ES  is  to  form  the 
element  material  (linear)  stiffness  matrices  for  all  elements  in  the  model  using  *call  ES 
(function** ’FORM  STIFFNESS/MATL  ’ ).  The  element  matrices  are  deposited  in  Segment  5 
of  the  EFIL  dataset.  Since  no  other  arguments  are  employed  in  this  call  to  the  procedure 
ES,  the  default  values  are  implied.  Thus,  for  example,  the  problem  is  assumed  to  be  linear 
(ES-NL-GEOM  * 0),  and  there  is  no  need  for  a displacement  dataset  (whose  name  is  given 
by  argument  ES_DISJ)S)  to  be  input  by  the  ES  Processors. 

Next,  assembly  of  the  element  stiffness  matrices  into  a system  matrix  is  performed  by 
processor  K.  Note  that  the  element  matrices  have  already  been  transformed  to  the  com- 
putational (nodal  degrees  of  freedom)  bases,  so  that  the  function  of  processor  K is  merely 
to  add  appropriate  submatrices. 

Finally,  processors  INV  and  SSOL  are  executed  in  order  to  factor  and  solve  the  assembled 
system  of  equations,  respectively.  The  displacement  solution  will  be  stored,  as  indicated 
by  the  RESET  command  for  processor  SSOL,  in  dataset  STAT.DISP.1.1. 
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♦procedure  L.STATIC 


Initialize  Element  Datasets 


[zqt  E 


Initialize  Element  Computational  Data 


♦call  ES  ( function  = ’INITIALIZE*  ) 


Form  Element  Material  Stiffness  Matrices 


♦call  ES  ( function  = ’FORM  STIFFNESS/MATL’  ) 


Assemble  Material  Stiffness  Matrix 


[xqt  K 


Factor  Stiffness  Matrix 


[xqt  INV 


Solve  for  Displacements 


[XqT  SSOL 

RESET  SET*1 , C0N=1 

♦end 


Figure  7.4-3  Sample  Linear  Static  Analysis  Procedure 
7.4.0  Nonlinear  Analysis  Examples 

A brief  example  of  how  to  employ  ESt  processors  in  nonlinear  analysis  procedures,  by 
including  selected  excerpts  from  an  actual  nonlinear  static  analysis  procedure  that  will 
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hopefully  convey  the  essential  aspects.  Typically,  engineering-oriented  users  will  invoke 
an  existing  nonlinear  analysis  procedure  rather  than  writing  their  own,  so  this  example  is 
intended  more  for  researchers  involved  in  algorithm  development. 

The  “skeleton”  of  a nonlinear  static  analysis  procedure  is  shown  in  Figure  7.4-5,  with  only 
those  aspects  involving  ESt  processors  shown.  There  is  very  little  difference  in  the  use 
of  the  procedure  ES  to  invoke  ES  processors  from  what  was  employed  in  the  linear  static 
analysis  procedure  compare  with  Figure  7.4-4,  except  that  some  additional  arguments  must 
be  explicitly  defined. 

First,  the  usual  call  to  INITIALIZE  for  all  ESt  processors  is  present.  This  call  enables 
the  participating  element  processors  to  generate,  and  store,  any  data  that  will  be  used 
repeatedly  during  the  analysis  — rather  than  having  to  recompute  it  at  each  iteration  of 
every  analysis  load  step. 

Next,  the  nested  load-step  and  iteration  loops,  typical  of  most  incremental/iterative  non- 
linear solution  algorithms  for  structural  analysis  are  encountered.  Within  these  loops,  it  is 
necessary  to  compute  residual  force  vectors  (right-hand  sides)  at  each  iteration  and  tangent 
stiffness  matrices  at  selected  load  steps/iterations. 

The  assembled  residual  force  vector  is  computed  by  first  initializing  a system  internal 
force  vector  (using  processor  VEC),  calling  the  procedure  ES  to  form/assemble  all  element 
contributions  to  the  internal  force  vector,  and  finally  subtracting  the  assembled  internal 
force  vector  from  a load-step  scaled  external  force  vector,  which  is  assumed  to  have  been 
generated  elsewhere. 

Notice  that  in  the  FORM  FORCE/INT  call  to  procedure  ES,  arguments  ES_NL_GE0M,  ES.CORO, 
ES-DIS-DS,  ES _R0T_DS  and  ES_FRC_DS  are  each  explicitly  defined.  The  reader  is  urged  to 
look  up  these  arguments  in  the  Macrosymbol/ Argument  Glossary,  Table  7.4-4.  These  ar- 
guments let  the  ESt  processors  know  that  the  problem  is  geometrically  nonlinear  (both 
globally  and  at  the  element  level).  The  corotational  algorithm  is  to  be  employed  to  make 
the  rotational  motion  “appear”  small  at  the  element  level,  but  allow  it  to  be  arbitrar- 
ily large  globally.  The  current  displacement  dataset  is  called  TOT.DISP . <$step>,  where 
<$step>  is  the  load-step  number;  the  current  rotation  (pseudo-vector)  dataset  is  called 
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TOT. ROTA. <$st«p>;  and  the  current  system  internal  force  vector  into  which  the  element 
contributions  are  to  be  assembled  is  called  IHT.FORC.<$step>. 

Finally,  the  formation/factorization  of  the  tangent  stiffness  matrix  is  shown  in  Figure  7.4-5 
which  involves  first  the  formation/transformation  of  the  element  tangent  stiffness  matrices 
by  ESi  processors,  which  are  deposited  in  the  *.EFIL.*  datasets;  then  the  assembly  of  the 
element  matrices  into  the  system  tangent  stiffness  matrix  by  processor  K;  and  finally  the 
factorization  of  the 
that  both  material 
element  level. 


assembled  (system)  tangent  stiffness  matrix  by  processor  INV.  Note 
and  geometric  stiffness  contributions  have  been  superimposed  at  the 
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♦procedure  NL.STATIC  ( NUM_ STEPS  « 1;  HUM. ITERS  = 10  ) 


. Initialize  Element  Computational  Data 

♦call  ES  ( function  * ’INITIALIZE*  ) 

• • 

♦do  Istep  - 1,  [HUM.STEPS] 

♦do  $iter  - 1,  [NUM. ITERS] 

FORM  RESIDUAL  FORCE  VECTOR 


[xqt  VEC 
INT. FORC  <-  0. 


♦call  ES  ( function 

es.nl.geom 

es.dis.ds 

es.rot.ds 

es.frc.ds 


= ’FORM  FORCE/ IHT’ ; 
= 2;  es.coro  = 1 ; - 

= TOT.DISP.<$step>; 

= TOT . ROTA . <$st ep> ; 

= INT . FORC . < $ st ep>  ) 


[xqt  VEC 

RES. FORC  <-  <load_f actor > * EIT.FORC  - IMT.FORC. <$step> 


FORM/FACTOR  TANGENT  STIFFNESS  MATRIX 


♦call  ES  ( function 

es_nl_geom 

es.dis.ds 

es.rot.ds 

es.frc.ds 


= ’FORM  STIFFNESS/TANG’  ; — 
= 2;  es.coro  =1;  — 

= TOT . DISP . <$st ep> ; -- 
* TOT . ROTA . <$st ep> ; — 

= INT. FORC. <$step>  ) 


[xqt  K 
[xqt  INV 

♦enddo 

♦enddo 


Figure  7.4-4  Sample  Nonlinear  Static  Analysis  Procedure  Excerpts 
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7.4.10  Postprocessing  Examples 

By  postprocessing  refers  to  functions  which  can  be  performed  after  the  displacement  so- 
lution has  been  obtained  for  a linear  or  nonlinear  structural  analysis.  For  example,  in  a 
nonlinear  static  (or  transient)  analysis,  the  user  may  choose  not  to  archive  the  stresses 
and  strains  which  were  used  as  intermediate  variables  during  the  process  of  obtaining  a 
displacement  solution  history.  The  user  may  then  compute  stresses  and/or  strains  at  se- 
lected load  (or  time)  steps  and  save  these  in  the  database  for  perusal.  The  end-user  phase 
of  postprocessing  is  of  course  the  actual  printing  or  display  of  the  results  (displacements, 
stresses,  strains,  etc.);  however,  the  main  interest  here  is  in  the  prerequisite  functions  that 
are  performed  by  ESt  processors. 

An  example  of  a postprocessing  procedure  that  employs  ESi  processors  to  form,  and  archive 
in  the  database,  both  stresses  and  strains  after  the  mainstream  analysis  has  already  been 
performed.  Procedure  STRESS-STRAIN  contains  arguments  to  select  the  stress/strain  lo- 
cations (the  default  is  at  element  centroids),  component  directions  (the  default  is  in  the 
element  local  stress/strain  coordinate  system),  existing  displacement  and  rotation  (for 
nonlinear  analysis)  datasets  to  be  employed  for  strain  computation. 

Note  that  there  is  a step  loop  in  the  procedure,  and  that  both  stresses  and  strains  for  all 
participating  elements  are  formed  by  just  a single  call  to  procedure  ES  per  step.  This  is 
because  the  FORM  STRESS  command  automatically  causes  strains  to  be  formed  as  well  as 
stresses,  and  when  both  ES_STRAIN_DS  and  ES_STRESS_DS  are  explicitly  defined,  then  both 
of  these  quantities  are  also  output  to  the  database. 
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♦procedure 


STRESS.STRAIN  ( LOCATION 
NL.GEOH 
NUM.STEPS 
DIS_DS 


= CENTROIDS 

= 0 
= 1 

= TOT.DISP 


DIRECTION  =0  ; — 

CORO  =0  ; — 

STEPS  = 1:1  ; — 

ROT_DS  * TOT. ROTA  ) 


. Loop  on  Solution  Steps 

♦def/i  steps [1 : [num_ steps]]  = [steps] 
♦do  \$is  = 1 , [num_steps] 

*def/i  step  = <steps[<\$is>]> 


Invoke  Element  Processors  to  Form  Stress/Strain 


♦call  ES  ( function 

es_nl_geom  = 
es.coro  * 
es.dis.ds  = 
es_rot_ds  = 
es_str_dir  ■ 
es_str_loc  * 
es.strain.ds 
es_stress_ds 


♦FORM  STRESS* 
[nl.geom] 

[coro] 

[DIS.DS] .<step> 
[R0T_DS] .<step> 
[DIRECTION] 
[LOCATION] 

* <step> 

* <step>  ) 


♦enddo 

♦end 


Figure  7.4-5  Sample  Postprocessing  Procedure 


7.4.11  PROCEDURE  LISTING 


♦procedure  ES  ( {unction 
•s.proc 
es.nane 
••.pars 
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. beg.update  06.M1T.1080  [GMS]  ES.COUNT 

es. count  s 0 ; — . 0/ls>create/accun  ES. SUMMARY 

. end.update 

es.coro  =1;  — 
es.nl.geon  = 0 ; — 
es.nl.natl  * 0 ; — 
es.nl.load  * 0 ; — 

es.dis.ds  = ST1T.DISP . 1 . 1 ; — 

es.dof.ds  * ES . DOFS  ; — 

es.ecc.ds  = WILL. PROP  ; — 

es.frc.ds  * INT.FORC.1.1  ; — 

es.rot.ds  = ST1T . ROTA . 1 . 1 ; — 

es.sun.ds  = ES. SUMMARY  ; — 

es.nass.diag  = DEM  ; — 

es.strain.ds  = 9 9 ; — 

es.stress.ds  = 9 9 ; — 

es.str.loc  * CENTROIDS  ; — 

es.str.dir  = 0 ; — 

nua.con.ds  * 1 ; — 

. bag.updatt  26.APR.1080  [GMS]  CONSISTENT  LOADS 

es.load.f actor  * 1.0  ; — 

es.load.set  = 1 ; — 

. end.updats  26.APR.1080  [GMS]  CONSISTENT  LOADS 

ldi  » 1 ) 


. Generic  Procedure  for  Structural  Elenent  (ES)  Processors 
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•if  < <IFELSE( [function] ; DEFINE  ELEMENTS ; 1 ; 0) > > /then 
•def/a  es.proc  » [es.proc] 

•def/a  es.nane  a [es.nane] 

•def/d  es_pars[l : 10]  * [es.pars] 

•def/a  es.sun.ds  = [6i.sui.ds] 


Initialize  ES  SUMHary  Dataiat 


•find  dataset  [ldi]  <es.sun.ds>  /seq=es_ids 
. beg.update  06.MAY.1089  [GMS]  ES. COUNT 

•if  < < <es.ids>  /le  0 > /or  < [es. count]  /eq  0 > > /then 
•put  dataset  [ldi]  <es_sun.ds>  /nrat=2000  /seq*es.ids 
•def/i  es.nun  = 1 
•else 

•find  record  [ldi] , <es.sun.ds>,  ES.P&OC  /nor=es_nun 
•def/i  es.nun  = < <es.nun>  ♦ 1 > 

•end if 
. end.update 

**2g  /na*e==es_proc  /type=a  [ldi]  <es.ids>  ES.P&OC. <es.nun> 

*n2g  /nane==es_nane  /type* a [ldi]  <es.ids>  ES.NANE. <es.nun> 

•*2g  /name== es.pars  /type=d  /aain=10  [ldi]  <es.ids>  ES.PARS. <es.num> 


• Run  ES  Processor 


[XQT  <es.proc> 
[function] 


5/24/90 


CSM  Testbed  Procedures  Manual 


7.4-  35 


Procedure  ES 


Utility  Procedures 


Define  macro  syibol  for  ELD/EXPE  com and 


•if  < <es_stor>  /gt  0 > /then 

*def/i  es.net  * < ((<es.stor>-l)/<es.nen>)  ♦ 1 > 

•else 

•dtf/i  es.net  * 1 
•endif 

. BEG. UPDATE  NAY.6.1989  [SNO]  EXPE  CHANGE 

•def/a  ES.EXPE.CHD«»EIPE  » [es.naae]  » »<es.nen>»  >~ 

•def/s  ES.EXPE_CMD«> EXPE  » [es.nane]  ’ — 

. END.UPDATE 

<es.opt>>  »<ee.nen>>  *<es.ndof>>  ’<mm.mst>*  1 10’<es.dim>>  ><csm.precision> 

•else 

•find  dataset  [ldi]  [es.sun.ds]  /seq*es.ids 

•def/a  es.aaee.diag  «*  [es.nass.diag] 

•def/a  es.ease.de  **  [es.mass.diag] .DIAG 


Find  Nusber  of  Element  Processors  Iron  Database 


•find  record  [ldi],  <es_ids>,  ES.PEOC  /nor^num.es.proc 
• if  < <num.es.proc>  /le  0 > /then 

•remark  Cannot  find  any  ES  Processor  names  in  dataset  [es.sun.ds] 
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e 

•endif 

•if  < <IFELSE( [function] ; DEFINE  FREEDOMS; 1 ;0)>  > /then 

•cell  ES.DOFS  ( function=INITIALIZE;  «s_dof _ds  = [os.dof _d»]  ) 
•end if 

Process  ell  Element  Processors  Found 
•do  Dies  * 1 , <nun_es_proc> 

•g2n  /nene==ES_PROC  /type=e  [ldi]  <es.ids>  ES_PROC.<$ies> 
•g2n  /naee==ES_NAHE  /type=a  [ldi]  <es_ids>  ES.NAME. <$ies> 
•g2n  /nene*=ES_PARS  /type=d  [ldi]  <es_ids>  ES_PARS.<$ies> 
•g2n  /nanessES.NSTR  /type*d  [ldi]  <es_ids>  ES_NSTR.<ties> 
•def/i  ES.CORO  « [es.coro] 

•def/e  ES.DIS.DS  = [es.dis.ds] 

•def/e  ES.DOF.DS  = [es.dof.ds] 

•def/e  ES_ECC_DS  » [es.ecc.ds] 

•def/i  ES.FIKI  = [es.fikz] 

•def/e  ES.FRC.DS  » [es.frc.ds] 

•def/i  ES.NL.GEOM  = [es.nl.geoe] 

•def/i  ES.NL.LOAD  = [es.nl.loed] 

•def/i  ES.NL.HATL  = [es.nl.netl] 

•def/e  ES_ROT_DS  = [es_rot_ds] 

. beg.npdete  26.APR.1989  [CHS]  CONSISTENT  LOADS 
*def/g  ES_L0AD. FACTOR  = [es.loed.f ector] 

•def/i  ES.LOAD.SET  = [es.loed.set] 

. end.updete  26.APR.1989  [GMS]  CONSISTENT  LOADS 


5/24/90 


CSM  Testbed  Procedures  Manual 


7.4-  37 


Procedure  ES 


Utility  Procedures 


•d af/a  ES.STR.DIE  * [«»_»tr_dir] 

•daf/a  ES.STR.LOC  = [•■.•tr.loc] 

•if  < <IPELSE( [••_strain.de] ; ;0;1)>  > /than  . (if  not  blank) 

•def/a  ES_ST»AIM_DS  = [e«_itrain_d«] 

•endif 

•if  < <IFELSE( [es.stress.ds] ; ;0;1)>  > /then  . (if  not  blank) 

•def/a  ES.STRESS.ds  * [«8.ftr«n.di] 

•andif 

[XQT  <es_proc> 

[function]  . DEFINE  FREEDOMS  I FORM  FORCE  I STIFFNESS  I ... 
•enddo 

• if  < <IFELSE( [function]  ;DEFINE  FREEDOMS;  1;0)>  > /then 

•call  ES.DOFS  ( function=FINALIZE;  es.dof _ds=[es_dof_ds] ; — 

num_con_ds= [nua_con.de]  ) 

•endif 

•endif 

STOP 

•end 

. =DECK  ES.DOFS 

•procedure  ES.DOFS  ( function* INITIALIZE;  es_dof_ds=ES.DOFS;  — 

num_con_ds=l ; ldi=l  ) 

•if  < < I FELSE( [function] ; INITIALIZE; 1;0)>  > /then 

•remark 

•remark  ES.DOFS:  Performing  Automatic  DOF  Suppression  for  ES  Elts 
•def/i  ns.overvrite  *=  <true> 


Initialize  Element  DOF  Dataset 
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*g2«  /nu*>puu«t«ri  /typ«=i  /iun«18  [ldi]  JDPl.BTiB.  1.8  DiTA.l 
*dof/i  nua.nodo*  = <paraaotor*[l]> 

•dof/i  nun.dof*  = <par«un«t*r*[2]> 

[ZQT  TEC 

INIT.TAB  [e»_dof_di]  <nu«_dof ■>  BT  <nu*_node»> 

•olsoif  < <IFELSE( [function] ; FINALIZE; 1;0)>  > /than 


Merge  Element  DOF  Dataset  with  Constraint  Datasats 


•def/i  nua.cds  = 0 

♦do  teds  a 1,  [nua.con.ds] 

♦dal/a  con.ds  = CON..<$cds> 

♦find  datasat  [ldi],  <con_ds>  /saq*id.cds 
♦if  < <tcds>  /aq  1 > /than 
[XQT  VEC 
•endif 

♦if  < <id_cds>  /gt  0 > /than 

♦remark  ES.DOFS  Procassing  Constraint  Datasat:  <con_ds> 
MERGE.DOF  [es.dof.ds]  ->  <con.ds> 

♦daf/i  nua.cds  * < <nua_cds>  + 1 > 

♦endif 

♦anddo 

♦raaark 

♦raaark  ES.DOFS  Procassad  <nua.cds>  Constraint  Datasats 
♦raaark 

*daf/i  ns. overwrite  =*  <falsa> 
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*«ndif 

• and 
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7.5  Procedure  FACTOR 

7.5.1  GENERAL  DESCRIPTION 

Procedure  FACTOR  decomposes  or  factors  a system  matrix  using  a solver  defined  by  the 
global  macrosymbol  solver  jaame.  If  solver  .name  is  defined  to  be  INV,  the  original  nodal- 
block  sparse  solver  implemented  in  processor  INV  will  be  used  (see  Section  6.7  of  reference 
7.5-1).  If  solver_name  is  defined  to  be  BAND,  a variable-bandwidth  direct  solver  imple- 
mented in  processor  BAND  will  be  used  (see  Section  8.5  of  reference  7.5-1). 

7.6.2  PROCEDURE  USAGE 

Procedure  FACTOR  is  used  by  preceding  the  procedure  name  by  the  *call  directive,  and 
following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are  order- 
independent,  and  most  have  default  values  thus  making  them  optional.  The  formal  syntax 
is  as  follows: 


♦call  FACTOR  ( argl  = vail  ; arg2  * val2  ; ...) 


where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  FACTOR  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 


For  procedure  FACTOR,  the  following  table  lists  each  argument,  its  default  value  and  mean- 
ing. 


Argument 

CONSTRAIHT-SET 

INPUT-MATRIX 

OUTPUT-MATRIX 

INPUT JLDI 
OUTPUT-LDI 


Default  Value  Meaning 

1 Constraint  set  number 

K First  word  of  the  name  of  the  dataset  containing 

the  assembled  stiffness  matrix 

K Second  word  of  the  name  of  the  dataset  containing 

the  factored  system  stiffness  matrix 
1 Logical  device  index  for  input-matrix 

1 Logical  device  index  for  output-matrix 


Tables  7.5-1  and  7.5-2  list  the  datasets  used  or  created  by  procedure  FACTOR  and  the 
processors  invoked  by  procedure  FACTOR,  respectively. 
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Table  7.5-1  Datasets  Input/Output  by  procedure  FACTOR 


Dataset  Description  Input  Output 


AMAP..ic2.isize  Factorization  Map  for  INV  yj 


CON..j’t  Constraints  yj 


INV.0_M.jt*  I Factored  Stiffness  Matrix  yj 


JDF1.BTAB.1.8  Model  Summary  y/ 


JSEQ.BTAB.2.17  I Nodal  Elimination  Sequence  y/ 


KMAP..nsubs.ksize  Model  Connectivity  Map  y/ 


J_M.SPAR.j<//2* * I Assembled  Stiffness  Matrix  y/ 


= <constraint_set>  * 0_M  = <output_matrix>  **/_M  = <input_matrix> 


Table  7.5-2  Processors  Invoked  by  procedure  FACTOR 

Procedure 

Type 

Function 

INV 

Internal 

Factor  stiffness  matrix  in  nodal-block-sparse  format 

BAND 

External 

Factor  stiffness  matrix  in  variable-bandwidth  format 

7.5.3  ARGUMENT  DESCRIPTIONS 

7.5.3.1  CONSTRAINT-SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  be  used 
in  solving  the  linear  system  of  equations. 

7.5.3.2  INPUT-MATRIX 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 

7. 5.3.3  OUTPUT-MATRIX 

Second  word  of  the  dataset  name  containing  the  factored  system  stiffness  matrix  (default: 
K).  This  notation  is  only  valid  if  the  macrosymbol  solver_name  is  set  to  INV. 
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7.5.5.4  INPPT-LDI 

Input  logical  device  index  containing  the  input  matrix  (default:  l). 

7.5.3. 5 OUTPPT-LDI 

Output  logical  device  index  containing  the  output  matrix  (default:  l). 

7.5.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  FACTOR  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦call  FACTOR  ( I»PUT_MATRIX  = K ; CONSTRAIHT.SET  = 1 ) 

Before  procedure  FACTOR  is  called,  the  global  macrosymbol  solver_name  should  be  defined 
as  described  in  Section  7.5.1;  otherwise,  the  default  value  of  INV  will  be  used. 

7.5.5  LIMITATIONS 

None. 

7.5.0  ERROR  MESSAGES  AND  WARNINGS 

None. 

7.5.7  PROCEDURE  FLOWCHART 

Procedure  FACTOR  is  self-contained  with  no  subprocedures. 

7.5.8  PROCEDURE  LISTING 

•procedure  FACTOR  ( input.matrix  = K ; output  .matrix  = K ; — 
input.ldi  = 1 ; output. ldi  = 1 ; — 

constraint. met  = 1 ) 

. Procedure  to  factor  a system  matrix  using  different  solvers. 

. The  solver  is  selected  using  the  global  aacrosymbol  "solver .name". 

•if  < if eqs ( <solver_nane> ; ) > /then 

•def/a  solver.name  ==  INF 

•endif 
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• if  < if eqs(  < solver .name > ;INV)  > /then 

. Use  original  nodal  block  sparse  aolvar  originally  in  SPAR 
[XQT  IN¥ 

reset  K = [input.matrix] 
reset  KLIB  * [input.ldi] 
reset  KILIB  * [output.ldi] 
reset  CON  » [constraint. set] 
reset  LEA  * 40000 
reset  DZERO  a l.E-20 
reset  spdp  * <csm.precision> 

•elseif  < ifeqs(  <solver.name>;BAND)  > /then 

. Use  Banded  solver 

[XQT  BAND 

reset  neth»28,  ldl=l,  klib* [input _ldi] 

reset  neon* [constraint. set] , dzero=1.0e-20f  k= [input.matrix] 
reset  opt*l,  res»-l 
•endif 
STOP 

. Define  factored-matrix  parameters  as  global  macrosymbols 

•if  < ifeqs(  <solver.name> ; ITER)  > /then 
•def/e  coef.det  ■»  1.0E+01 
*def/i  explO.det  **  1 
•def/i  nua.neg  **  0 
•def/i  sign.det  1 
♦else 

•remark  Determinant  of  [input .matrix]  = <coef.det>  * 10  ••  <expl0.det> 
•remark  Number  of  negative  roots  = <num.neg> 

•def/i  sign.det  ==  <SIGN(1 . ;<coef_det>)> 

•end if 
•end 


7.5.9  REFERENCES 

7.5-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 
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7.6  Procedure  FORCE 
7.6.1  GENERAL  DESCRIPTION 


Procedure  FORCE  drives  the  calculation  of  force  vectors  for  either  linear  or  nonlinear  anal- 
yses. 


7.6.2  PROCEDURE  USAGE 


Procedure  FORCE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive,  and 
following  it  by  a list  of  arguments  separated  by  semicolons  (;)  and  enclosed  in  parentheses. 
Procedure  arguments  are  order-independent,  and  most  have  default  values  thus  making 
them  optional.  The  formal  syntax  is  as  follows: 


♦call  FORCE  ( argl  * vail  ; arg2  * val2  ; ...) 


For  procedure  FORCE,  the  following  table  lists  each  argument,  its  default  value  and  meaning. 


Argument 

Default  Value 

Meaning 

COROTATION 

DISPLACEMENT 

i 

Corotational  flag  (0,  1,  2) 

First  two  words  of  displacement  dataset  name 

LDI 

i 

Logical  device  index 

LOAD-SET 

i 

Load  set  number 

L0AD_FACT0R 

1.0 

Load  factor 

NL.GE0M 

0 

Geometric  nonlinearity  flag 

NLJLOAD 

0 

Nonlinear  load  terms  (live  terms) 

NL.MATL 

ROTATION 

0 

Material  nonlnearity  flag 

First  two  words  of  rotation- vector  dataset  name 

TYPE 

INPUT-FORCE 

RESIDUAL 

Type  of  force  vectoj-  (residual,  external,  internal) 
Input  force  vector  dataset  name 

OUTPUT-FORCE 

SYS. FORCE 

Output  force  vector  dataset  name 

Tables  7.6-1,  7.6-2,  and  7.6-3  list  the  datasets  used  or  created  by  procedure  FORCE,  the 
procedures  invoked  by  procedure  FORCE,  and  the  processors  invoked  by  procedure  FORCE, 
respectively. 
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Table  7.6-1  Datasets  Input/Output  by  procedure  FORCE 


Dataset  I Description  Input  Output 


ES. SUMMARY  ES  Processor  Status  y/  yj 


INT.FORC.i.jt  System  Internal  Force  Vector  yj 


STAT.DISP.i.jt  System  Displacement  Vector  yj 


STAT.RE AC . i.;t  System  Reaction  Force  Vector  yj 


t * = <load_set>  and  j = <cons_set> 


Table  7.6-2  Sub-procedures  Invoked  by  procedure  FORCE 

Procedure 

Type 

Function 

ES 

External 

Element  utility  procedure 

FORCE 

Main  Procedure 

Table  7.6-3  Processors  Invoked  by  procedure  FORCE 

Procedure 

Type 

Function 

ESi 

External 

Element  processors  based  on  GEP 

VPRT 

Internal 

Print  SYSVEC-format  vectors 

7.6.3  ARGUMENT  DESCRIPTIONS 

7.6. 3.1  COROTATIOW 

Corotational  update  switch  for  large-rotation  problems  (default:  l).  This  switch  should 
be  set  to  1 when  the  model  involves  finite  elements  that  require  corotation  for  geometric 
nonlinearity.  This  is  true  of  most  beam  and  shell  elements,  and  may  be  true  for  some  solid 
(3D)  elements  used  to  model  shell  structures.  Consult  the  appropriate  element  processor 
(ESi)  section  in  the  CSM  Testbed  User’s  Manual  (see  ref.  7.6-1)  for  specific  guidelines. 

7.6. 3. 2 DISPLACEMEHT 

First  two  words  of  the  dataset  name  for  the  displacement  solution. 
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T.0.3.3  INPUT-FORCE 

Full  dataset  name  for  the  input  or  basic  force  vector. 

T.0.3.4  OUTPUT-FORCE 

Full  dataset  name  for  the  output  force  vector  (default:  SYS. FORCE). 

7.6.3. 5 LDI 

Logical  device  index  (default:  1). 

7. 0. 3.0  LOAD-FACTOR 

Load  factor  used  to  scale  the  basic  applied  loads  or  displacements  (default:  1.0). 

7.0. 3. 7 NL-GEOM 

Geometric  nonlinearity  level:  0,  1,  or  2 (default:  2).  A value  of  zero  means  that  the 
problem  is  geometrically  linear;  a value  of  one  means  that  the  geometric  nonlinearity  will 
be  handled  globally  (i.e.,  using  corotational  updates  only);  and  a value  of  two  means  that 
the  nonlinear  element  strain-displacement  relations  will  be  used  in  addition  to  any  global 
treatment  of  geometric  nonlinearity. 

7.0. 3.8  ES-NL-MATL 

Material  nonlinearity  switch.  If  ES_NLJ(ATL  is  greater  than  zero,  then  the  element  is 
materially  nonlinear.  If  ES_NL-MATL  is  zero,  then  the  element  is  materially  linear. 

7.6.3.0  NL-LOAD 

Nonlinear  loading  index  for  live  loads  (default:  0). 

7.0. 3.10  ROTATION 

First  two  words  of  the  dataset  name  for  the  rotation  solution. 

7.0. 3.11  TYPE 

Type  of  force  vector  to  form  (default:  RESIDUAL.  This  argument  selects  the  type  of  force 
vector  to  form  (RESIDUAL,  INTERNAL,  or  EXTERNAL). 
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7.0. 4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  FORCE  may  be  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 

♦call  FORCE  ( LOAD. SET  - 1 ; INPUT.FORCE  * APPL.FORC. [load.set] .1; 
OTJTPUT.FORCE  = EXT.FORC;  TYPE  = EXTERNAL; 

LOAD.FACTOR  = 2.5;  LDI  = 1 ) 

7.0. 5  LIMITATIONS 

Applicable  only  to  elements  implemented  using  the  generic  element  processor  template. 

7.0. 0  ERROR  MESSAGES  AND  WARNINGS 

None. 


7.0. 7  PROCEDURE  FLOWCHART 

FORCE  (main  procedure) 

ES  (internal  force  calculation) 

7.0. 8  PROCEDURE  LISTING 

•procedure  FORCE  ( type  » RESIDUAL  ; — . RESIDUAL  I EXTERNAL  I INTERNAL 

input.force  ; — 

output. lorce  = STS. FORCE  ; — 

load.set  =1  ; — 

load.factor  =1.0  ; — 

nl.geom  =0  ; — 

nl.natl  =0  ; — 

nl.load  =0  ; — 

displacement  ; — 

rotation  ; — 

corotation  =0  ; — 

ldi  = 1 ) 

Cxqt  TEC 


Initialize  Output  Force  Vector 


*!ind  [ldi]  [output.! orce]  /seq=ids.oforce 
*if  < <ids.oforce>  /le  0 > /then 
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•g2m  /nane =nun .nodes  /type=i  [ldi]  MODEL. SUMMARY  MUM.MODES 
•g2n  /naaesnun.dofs  /type=i  [ldi]  MODEL. SUMMARY  HUM.DOFS 
INIT.YEC  [output .f ore#]  <nun_dofs>  BY  <num.nodes> 

•else 

[output. lore*]  <-  0. 

•andif 


Add  Scalad  Input  Force  Vector 


•if  < <IFELSE( [input.f orce] ; ;0;1)>  > /than 
•find  [ldi]  [input .force]  /seq=ids_iforce 
•if  < <ids_iforce>  /gt  0 > /than 
[putput .force]  <-  [load.factor]  [input. forca] 
•andif 
•andif 


Add  Elanant  Forcas 


•FORM  FORCE/ [type]1 
3 [ldi] 

= [nl.geoa] 

* [nl.load] 

= [corotation] 

3 [displacaaant] 

■ [rotation] 

[load.factor] 
[load. sat] 
as.frc.ds  ■ [output. force]  ) 


•call  ES  ( function  » 
ldi 

es.nl.gaon 
as.nl. load 
as.coro 
as.dis.ds 
as.rot.ds 
as. load.f actor 
as.load.sat 


•and 


7.6,9  REFERENCES 

7.6-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


7.6-  5 


FORCE 


Utility  Procedures 


THIS  PAGE  LEFT  BLANK  INTENTIONALLY. 


.6-  6 


CSM  Testbed  Procedures  Manual 


Revised  5/24/90 


Utility  Procedures 


Initial  Geometric  Imperfections 


7.7  Procedure  IMPERFECTION 

7=7,1  GENERAL  DESCRIPTION 

Procedure  IMPERFECTION  to  superpose  a set  of  normalized  buckling  modes  to  form  an 
initial  geometric  imperfection  shape.  This  imperfection  shape  is  then  added  to  the  nodal 
coordinates  of  the  structure.  The  original  nodal  coordinates  are  first  copied  into  another 
dataset  and  saved  for  subsequent  use  if  desired. 

7.7.2  PROCEDURE  USAGE 

Procedure  IMPERFECTION  is  used  by  preceding  the  procedure  name  by  the  ♦call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  IMPERFECTION  ( argl  = vail  ; arg2  = val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  IMPERFECTION  are  summarized  in  the  following 
table,  along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults 
are  generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to 
this  rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  procedure  IMPERFECTION,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 

Argument  Default  Value  Meaning 

AMPS  1 . 0 Amplitude  of  each  buckling  mode 

MODE  1 Mode  numbers 

N -MODES  1 Number  of  buckling  modes  used 

in  computing  imperfection  shape 
LDI  1 Logical  device  index 

Processor  IMP  is  used  to  perform  the  modal  superposition  (see  reference  7.7-1). 

7.7.3  ARGUMENT  DESCRIPTIONS 
7.7.3. 1 AMPS 

Amplitudes  of  buckling  mode  shapes  (default:  1.0).  This  argument  gives  an  array  of 
amplitudes  for  the  buckling  mode  shapes.  The  array  amps  has  N.M0DES  entries. 
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7.7.3.2  LDI 

Logical  device  index  (default:  l). 

7.7.3. 3 HOPE 

Buckling  mode  shape  numbers  (default:  l).  This  argument  gives  an  array  of  mode  numbers 
to  be  used  in  generating  the  initial  geometric  imperfection  shape.  The  array  MODE  has 
N-MODES  entries. 

7. 7.3.4  N-MODES 

Number  of  buckling  mode  shapes  to  use  (default:  l).  This  argument  gives  the  total  number 
of  buckling  mode  shapes  to  be  superposed  to  form  the  initial  geometric  imperfection  shape. 

7.7.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  IMPERFECTION  may  be  used  by  preceding  the  procedure  name  by  the  *call 
directive.  Procedure  arguments  may  be  changed  from  their  default  values  by  including 
any  or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or 
blank  is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the 
default  values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name 
is  required. 

♦call  IMPERFECTION  ( n_modes=l ; modes=l;  amps»1.0  ) 

7.7.5  LIMITATIONS 

Procedure  IMPERFECTION  only  considers  normalized  buckling  modeshapes  in  forming  the 
initial  geometric  imperfection  shape. 

7.7.6  ERROR  MESSAGES  AND  WARNINGS 
None. 

7.7.7  PROCEDURE  FLOWCHART 

IMPERFECTION  (main  procedure) 

COPY-DS  (copy  datasets) 

SVITCH.DS  (switch  datasets) 
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7.7.8  PROCEDURE  LISTING 

♦procedure  IMPERFECTION  ( n.modes*!;  modes*!;  amps*1.0;  ldi*l  ) 


CLAMP  Procedure  to  Superpose  Buckling  Modes  as  Initial  Imperfections 


♦remark 

♦remark  Imposing  Geometric  Imperfections 
♦remark 

♦remark  - - - Saving  old  nodal  coordinates  in  JL0C.0LD.2.5 
♦call  COPT.DS  ( f rom.ldi* [ldi] ; from.ds  * JLOC.BTAB. 2.6  ; ~ 
to.ldi  * [ldi];  to.ds  = JL0C.0LD.2.5  ) 

♦call  SVITCH.DS  ( ldi* [ldi];  ~ 

ds.l  * JLOC.BTAB. 2. 5 ; ds_2  * JL0C.0LD.2.5  ) 

♦remark 

♦remark  - - - Adding  linear  combination  of  buckling  modes  to  coords 
♦remark 
[XQT  IMP 

*def/i  modes [1 : [n.modes]]  = [modes] 

*def/el2.4  amps [1 : [njmodes]]  * [amps] 

•do  $im  * 1 , [n.modes] 

SUPERPOSE  <amps [<$im>]>  BUCK. MODE. 1.1  /mode*<modes[<*im>]>  /NORM 
♦remark  ...  Mode  * <modes[<$im>]>  , Amplitude  * <amps  [<$ia>]> 
♦enddo 

♦end 


7.7.9  REFERENCES 

7.7-i  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 
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7.8  Procedure  INITIALIZE 

7.8.1  GENERAL  DESCRIPTION 

Procedure  INITIALIZE  performs  standard  initialization  functions  and  resequencing  of  the 
joint. 

7.8.2  PROCEDURE  USAGE 

Procedure  INITIALIZE  is  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  INITIALIZE  ( axgl  = vail  ; arg2  = val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  INITIALIZE  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 
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For  procedure  INITIALIZE,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 


Argument  Default  Value  Meaning 


CONSTRAINT_SET  1 

LDI  1 

MAXCON  35 

RENUMBER  <false> 

RSEQ -METHOD  -1 


Constraint  set  number 
Logical  device  index 

Maximum  number  of  joints  connected  to  any  one  joint 
Flag  to  resequence  the  joints  internally 
Resequencing  method 


7.8.3  ARGUMENT  DESCRIPTIONS 

7.8. 3.1  CONSTRAINT-SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  be  used 
in  solving  the  linear  system  of  equations. 

7.8. 3. 2 MAXCON 

Maximum  number  of  joints  connected  to  any  one  joint  (default:  35). 

7.8.3.S  RENUMBER 

Flag  to  resequence  the  joints  internally  (default:  <f  alse>). 

7.8. 3.4  RSEQ-METHOD 

Resequence  method  (default:  -1).  This  argument  selects  which  resequencing  method  to 
use.  The  procedure  RESEQUENCE  is  called  for  this  task  (see  Section  7.12). 

7.8.3. 5 LDI 

Logical  device  index  (default:  l). 

7.8.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  INITIALIZE  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦call  INITIALIZE  ( LDI  = 1 ; CONSTRAINT.SET  = 1 ; RENUMBER  = <true>  ) 


7.8.5  LIMITATIONS 

None. 
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7.8.6  ERROR  MESSAGES  AND  WARNINGS 

None. 


7.8.7  PROCEDURE  FLOWCHART 


INITIALIZE 

ES 

RESEQUENCE 

MODEL-SUMMARY 


(main  procedure) 

(initialize  element  processor) 
(resequence  the  joints) 

(create  MODEL-SUMMARY  dataset) 


7.8.8  PROCEDURE  LISTING 

♦procedure  INITIALIZE  ( renuaber=<false>;  constraint. s«t  = 1;  ldi*l;  — 

rseq.method  = -1;  aaxcon  * 36  ) 

Perform  Standard  Initialization  Functions 


INITIALIZE  ELEMENT  CONFIGURATION 


[XQT  E 

♦call  ES  ( function  * ’INITIALIZE’ ; ldi*  [ldi]  ) 
•Raaark  Elaaant  configuration  initialized. 


. RESEQUENCE  NODES  FOR  SOLVER  EFFICIENCY 


♦if  < [renumber]  > /then 

♦call  RESEQUENCE  ( rseq.method* [rseq.method] ; - 
ldi* [ldi]  ; aaxcon=  [aaxcon]  ) 

•endif 


. CONSTRUCT  MATRIX  TOPOLOGY  MAPS 


[XQT  TOPO 

reset  maxsub  = 100000,  lram*40000,  Irkas 100000 
RESET  BLIB* [ldi] 

RESET  HLIB* [ldi] 

RESET  ILIB*[ldi] 

♦if  < if eqs(  <solver_name> ; IN?  ) > /then 

♦else 

reset  AMAP*0 
♦endif 


. CONSTRUCT  DOF  TABLE 


[XQT  VEC 

INIT.D0F  CON. . [constraint. set]  ->  DOF.TABL 
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•Remark  DOF  TABLE  initialized. 


. CREATE  MODEL  SUMKART  DATASET 


•call  MODEL.SUMMART  ( ldi* [ldi]  ) 
STOP 
♦end 


7.8.0  REFERENCES 

7.8-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 
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7.9  Procedure  MASS 

7.9.1  GENERAL  DESCRIPTION 

Procedure  HASS  forms  the  assembled  unconstrained  mass  matrix. 

7.9.2  PROCEDURE  USAGE 

Procedure  MASS  is  used  by  preceding  the  procedure  name  by  the  *call  directive,  and 
following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  its  follows: 


*call  HASS  ( argl  = vail  ; arg2  = val2  ; . . . ) 


where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  HASS  are  summarized  in  the  following  table,  along 
with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are  generally 
mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this  rule  are 
noted  in  the  following  section  under  detailed  argument  descriptions. 
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For  procedure  MASS,  the  following  table  lists  each  argument,  its  default  value  and  meaning. 


Argument  Default  Value  Meaning 


TYPE 

MASS 

LDI 


CONSISTENT 

CEM 

1 


Type  of  mass  matrix 
Output  dataset  name 
Logical  device  index 


Tables  7.9-1  and  7.9-2  list  the  datasets  used  or  created  by  procedure  MASS  and  the  proces- 
sors invoked  by  procedure  MASS,  respectively. 


Table  7.9-1  Datasets  Input/Output  by  procedure  MASS 

Dataset 

Description 

Input 

Output 

JDFl.BTAB.1.8 

Model  Summary 

V 

JSEQ.BTAB.2.17 

Nodal  Elimination  Sequence 

V 

KMAP..nsubs.ksize 

Model  Connectivity  Map 

V 

<MASS>.SPAR.;d/? 

Assembled  Mass  Matrix 

v/ 

DEM.DIAG 

Diagonal  Mass  Matrix 

V 

Table  7.9-2  Processors  Invoked  by  procedure  MASS 

Procedure 

Type 

Function 

VEC 

Internal 

Vector  algebra  utilities 

K 

Internal 

Assembles  unconstrained  system  matrices 

ESu 

External 

Various  element  processors  based  on  the  GEP 

7.9.3  ARGUMENT  DESCRIPTIONS 

7.9. 3.1  LDI 

Logical  device  index  (default:  l). 

7.9.3. 2 MASS 

Name  of  the  mass  matrix  dataset  (default:  CEM).  For  a consistent  mass  matrix,  the 
dataset  name  is  [MASS].SPAR.;d/2.  For  a diagonal  mass  matrix,  the  dataset  name  will 
be  <es_mass_diag>  or  DEM.DIAG. 
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7.0.3.3  TYPE 

Type  of  mass  matrix  (default:  CONSISTENT).  This  argument  defines  the  form  of  the  mass 
matrix  to  be  either  consistent  or  diagonal. 

7.9.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  HASS  is  used  by  preceding  the  procedure  name  by  the  *call  directive.  Proce- 
dure arguments  may  be  changed  from  their  default  values  by  including  any  or  all  of  the 
arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank  is  required 
between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦call  MASS  ( TYPE  * DIAGONAL;  MASS  = <es_mass_diag> ; ldi  = 1) 

7.9.5  LIMITATIONS 

None. 


7.9.6  ERROR  MESSAGES  AND  WARNINGS 

None. 


7.9.7  PROCEDURE  FLOWCHART 

MASS  (main  procedure) 

ES  (form  element  mass  matrices) 

7.9.8  PROCEDURE  LISTING 

•procedure  NiSS  ( type  = CONSISTENT  ; — . CONSISTENT  I DIAGONAL 
ldi=l;  Bass  = CEH  ) . Output  dataset 

•rtiark 

•Remark  Forming  [type]  Hass  Matrix 

*r«iark 

•if  < <IFELSE( [TYPE] [DIAGONAL; 1;0)>  > /then 


Initialize  Diagonal  (Lunped)  Hass  Matrix 


•g2n  /naae=nua_dof s /type=i  [ldi]  MODEL . SUMMARY  NDM.DOFS 
*g2n  /nane*nun_nodes  /type=i  [ldi]  MODEL. SUMMARY  NVN.NODES 
[XQT  YEC 

INIT.YEC  <es_aass_ds>  <NUM.DOFS>  BY  <NOM.NODES> 

•endif 


. Fora  Elenent  Mass  Matrices  (in  EFIL  Dataset) 
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•call  ES  ( function  « ‘FORM  MASS/ [typo] » ; ldi=[ldi]  ) 


Asaanbla  Elaaant  Conaistant  Maaa  Matrix  into  Syataa  Matrix 


•if  < < I PELS E( [TYPE] ; CONSISTENT ; 1 ; 0) > > /than 
[XQT  K 

raaat  nana  = [naaa] 

RESET  BLIB=  [ldi] 

RESET  ELIB* [ldi] 

RESET  HLIB=[ldi] 

RESET  OUTLIB* [ldi] 

RESET  SPDP*<caa_praciaion> 

•andif 

•and 


7.9.0  REFERENCES 

7.9-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 


7.9-4 


CSM  Testbed  Procedures  Manual 


Revised  5/24/90 


Utility  Procedures 


MODEL-SUMMARY 


7.10  Procedure  MODELJSUMMARY 

7.10.1  GENERAL  DESCRIPTION 

Procedure  H0DEL_SUMHARY  generates  a summary  dataset  which  contains  parameters  about 
the  finite  element  model.  These  parameters  include  the  number  of  element  processors  used 
(<num_es_types>),  the  total  number  of  nodes  (<num_nodes>),  the  number  of  uncon- 
strained degrees  of  freedom  (<num_dofs>),  and  the  number  of  equations  (<num_eqns>). 
These  parameters  are  written  to  the  MODEL.SUMMARY  dataset. 

7.10.2  PROCEDURE  USAGE 

Procedure  MODEL-SUMMARY  is  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


*call  MODEL-SUMMARY  ( argl  * vail  ; arg2  - val2  ; . . . ) 


where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  MODEL-SUMMARY  are  summarized  in  the  following 
table,  along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults 
are  generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to 
this  rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 
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For  procedure  HODEL-SUMMARY,  the  following  table  lists  each  argument,  its  default  value 


and  meaning. 

Argument 

Default  Value 

Meaning 

CONSTRAINT-SET 

i 

Constraint  set  number 

LDI 

i 

Logical  device  index 

Table  7.10-1  lists  the  datasets  used  or  created  by  procedure  MODEL-SUMMARY. 


Table  7.10-1  Datasets  Input/Output  by  procedure  MODEL-SUMMARY 


Dataset 

Description 

Lib 

Input 

Output 

JDFl.BTAB.1.8 

Model  Summary 

MODEL.SUMMARY 

Model  Summary  Parameters 

V 

7.10.3  ARGUMENT  DESCRIPTIONS 

7.10.3.1  CONSTRAINT-SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  be  used 
in  solving  the  linear  system  of  equations. 

7.10.3.2  LDI 

Logical  device  index  (default:  1). 

7.10.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  MODEL-SUMMARY  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all  of 
the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

♦call  MODEL-SUMMARY  ( LDI  = 1 ; CONSTRAINT-SET  » 1 ) 

7.10.5  LIMITATIONS 

None. 
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7.10.6  ERROR  MESSAGES  AND  WARNINGS 

None. 

7.10.7  PROCEDURE  FLOWCHART 

Procedure  MODEL -SUMMARY  is  self-contained  with  no  subprocedures. 


7.10.8  PROCEDURE  LISTING 

•procedure  MODEL-SUMMARY  ( ldi=l  ; constraint_s«t=l  ) 


. Gat  nodal  paraaatars  froa  various  datasats 


•find  racord  [ldi]  ES. SUMMARY,  ES-PROC  /nor=nua_ea_typas 

•g2a  / naaa=paraaat ar s /typa=i  /aaxn=18  [ldi]  JDF1.BTAB.1.8  DATA . 1 

•daf/i  nua.nodas  * <paraaatars [1] > 

•daf/i  nua.dofs  » <paraaatars [2] > 


. Install  tha  MODEL. SUMMARY  datasat , if  nacassary 


•find  datasat  [ldi]  MODEL. SUMMARY  /saq=ids_MS 
•if  < <ids.MS>  /la  0 > /than 

•put  datasat  [ldi]  MODEL. SUMMARY  /nrat*84  />aq=ids_MS 
•andif 


. Stora  paranatars  in  tha  MODEL. SOMMART  datasat 


*a2g  /naaa*nun_as_typas  /typa*i 
•s2g  /nana=nun.nodas  /typa=i 

•s2g  /naaasnuB-dof s /typa=i 

•a2g  /naaa=nua.aqns  /typa=i 

•and 


[ldi]  MODEL. SUMMARY  NUM.ES. TYPES 
[ldi]  MODEL. SUMMARY  MUM-MODES 
[ldi]  MODEL. SUMMARY  NUM.DOFS 
[ldi]  MODEL. SUMMARY  NUM-EQMS 


7.10.9  REFERENCES 

7.10-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual  NASA  TM-100644,  October  1989. 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


7.10-3 


MODEL-SUMMARY 


Utility  Procedures 


THIS  PAGE  LEFT  BLANK  INTENTIONALLY. 


7.10-  4 


CSM  Testbed  Procedures  Manual 


Revised  5/24/90 


Utility  Procedures 


PRINTJEFIL 


7.11  Procedure  PRINTJ3FIL 

7.11.1  GENERAL  DESCRIPTION 

Procedure  PRIHT_EFIL  prints  one  or  all  segments  of  the  es_name.EFIL.tfype.nnod  dataset 
where  et.name  is  the  element  name  (e.y.,  EX97).  The  procedure  processes  all  elements  of 
the  specified  element  type. 

7.11.2  PROCEDURE  USAGE 

Procedure  PRINT_EFIL  is  used  by  preceding  the  procedure  name  by  the  *0811  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  PRIHT_EFIL  ( argl  * vail  ; arg2  * val2  ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  PRINTJEFIL  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  procedure  PRINTJEFIL,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 


Argument  Default  Value  Meaning 

ELEMENT  EX97  Element  name 

SEGMENT  ALL  EFIL  segment 


The  segments  of  the  EFIL  are  printed  using  processor  PRTE  (see  reference  7.11-1). 


7.11.3  ARGUMENT  DESCRIPTIONS 
7.11.3.1  ELEMENT 

Element  name  (default:  EI97).  The  argument  specifies  the  element  name  for  which  the 
EFIL  segments  are  to  be  printed. 


Revised  5/23/90  CSM  Testbed  Procedures  Manual  7.11-  1 

Preceding  page  blank  not  filmed 


PRINT_EFIL 


Utility  Procedures 


7.11.3.2  SEGMENT 

EFIL  segment  to  be  printed  (default:  ALL).  The  EFIL  (see  reference  7.11-2)  contains  nine 
segments.  Any  one  or  all  of  the  segments  may  be  selected  for  printing  using  the  argument 
SEGMENT.  The  EFIL  segments  are  as  follows: 


Segment 

Item 

Length 

Type 

Description 

iL 

Definition 

Integ 

Same  as  dataset  DEF.<ES_NAME>. 

a 

Material 

Real 

(currently  unused) 

3 

Geometry 

Real 

Element  geometric  parameters. 

XEO 

(3,nen) 

Initial  element  nodal  coordinates  in 
element  basis. 

TEG 

(3,3) 

Transf.  from  global  to  current  element 
basis. 

TEC 

(3,3,nen) 

Transf.  from  computational  to  element 
basis  at  element  nodes. 

XGO 

(3,nen) 

Initial  elt.  nodal  coords 
in  global  basis. 

TEGO 

(3,3) 

Transf.  from  global  to  initial  element 
basis. 

DE 

(nee) 

Deformational  displacements  (d^*^). 

T 

~ 

Property 

Real 

(currently  unused) 

Matrix 

KM 

nmt 

Real* 

Element  matrix  (stiffness/mass); 
only  upper  triangle  of  nodal  blocks. 

<r 

Aux.  Storage 

Real 

Auxiliary  storage  for  element  developer. 

T 

Stress 

Real 

(currently  unused) 

T 

Therm.  Force 

Real 

(currently  unused) 

T 

Therm.  Stress 

Real 

(currently  unused) 

*The  element  stiifness/mass  matrix,  item  KM  in  Segment  5,  may  be  stored  in  either  single 
or  double  precision,  as  specified  in  dataset  DIR.es_name.ttype.rmod  (entry  15).  However, 
all  of  the  other  REAL  data  in  the  es_name.EFIL.ttype.nnod  dataset  are  stored  exclusively 
in  single  precision. 


7.11.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  PRINT-EFIL  may  be  used  by  preceding  the  procedure  name  by  the  *call  di- 
rective. Procedure  arguments  may  be  changed  from  their  default  values  by  including  any 
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or  all  of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or 
blank  is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the 
default  values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name 
is  required. 

♦call  PRINT.EFIL  ( element  * EX97;  segment  * ALL  ) 

7.11.5  LIMITATIONS 

None. 

7.11.6  ERROR  MESSAGES  AND  WARNINGS 

None. 


7.11.7  PROCEDURE  FLOWCHART 

Procedure  PRINT JEFIL  is  self-contained  with  no  subprocessors. 

7.11.8  PROCEDURE  LISTING 


•procadura  PRINT. EFIL  ( alaaant  = EX97;  aagaant  * ALL  ) 


. Print  Saga ant (a)  of  EFIL  Datasat 


*if  < <ifalaa([aagaant] ;ALL;i;0)>  > /than 

•daf/i  aagl  * 1 

•daf/i  sag2  = 9 
•alia 

•if  < <if alsa( [sagaant] j DEFINITION; 1 j 0)>  > /than 
•daf/i  aagl  = 1 

•alaaif  < <ifalaa( [aagaant] ; MATERIAL; 1 ; 0) > > /than 
*daf/i  aagl  = 2 

•alaaif  < <ifalaa( [aagaant] jGEONETRT; 1 ;0)>  > /than 
•daf/i  aagl  = 3 

•alaaif  < <ifalaa( [aagaant] [PROPERTY; 1;0)>  > /than 
•daf/i  aagl  > 4 

•alaaif  < <ifalaa([aagnant] {STIFFNESS; 1;0)>  > /than 
•daf/i  aagl  - 5 

•alaaif  < <ifalaa( [aagaant] ;STRESS_RECOVERT; 1;0)>  > /than 
•daf/i  aagl  - S 

•alaaif  < <ifalaa( [aagaant] ;ST0RE;1;0)>  > /than 
•daf/i  aagl  * 6 

•alaaif  < <ifalae( [aagaant] ;STRESSjl;0)>  > /than 
•daf/i  aagl  * 7 

•alaaif  < <ifalaa( [aagaant] ;THERNAL.F0RCE;1;0)>  > /than 
•daf/i  aagl  a 8 


Revised  5/24/90 


CSM  Testbed  Procedures  Manual 


7.11-  3 


PRINT_EFIL 


Utility  Procedures 


©elseif  < <ifelse( [segment] ; THERM AL_RECO VERT; 1 ; 0)>  > /than 
♦deT/i  segl  = 9 
©endif 

*def/i  seg2  * <segl> 

♦endif 
[XQT  PRTE 

RESET  SEG1  = <#egl> 

RESET  SEG2  * <seg2> 

[element] 

STOP 

©end 


7.11.0  REFERENCES 

7.11- 1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 

Manual.  NASA  TM-100644,  October  1989. 

7.11- 2  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  Data  Li- 

brary Description.  NASA  TM-100645,  October  1988. 
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7.12  Procedure  RESEQUENCE 

7,12,1  GENERAL  DESCRIPTION 

Procedure  RESEQUENCE  resequences  the  node  numbers  internally  for  a solver  defined  by 
the  global  macrosymbol  solver_name.  If  rseq_method  is  -1,  then  a resequencing  method 
implemented  in  processor  RSEQ  (see  Section  6.1  of  reference  7.12-1)  is  selected  which  is 
appropriate  for  the  equation  solver  defined  by  the  global  macrosymbol  solver-name.  That 
is, 


solver-name 

rseq_method 

INV 

1 

BAND 

2 

ITER 

1 

SPK 

none 

If  rseq_method  is  10,  then  the  profile-front  minimization  resequencing  method  imple- 
mented in  processor  PFM  (see  Section  6.2  of  reference  7.12-1).  If  the  global  macrosymbol 
solver_name  is  SPK,  no  resequencing  is  performed  since  processor  SPK  performs  its  own 
resequencing  (see  Section  8.6  of  reference  7.12-1).  Other  values  of  rseq_method  will  select 
a specific  resequencing  method  requested  by  a user. 

7.12.2  PROCEDURE  USAGE 

Procedure  RESEQUENCE  is  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 

♦call  RESEQUENCE  ( argl  = vail  ; arg2  = val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  RESEQUENCE  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  procedure  RESEQUENCE,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 

Argument  Default  Value  Meaning 

LDI  1 Logical  device  index 

HAXCON  35  Maximum  number  of  joints  connected  to  any  one  joint 

RSEQ-METHOD  -1  Resequencing  method 
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Tables  7.12-1  and  7.12-2  list  the  datasets  used  or  created  by  procedure  RESEQUENCE  and 
the  processors  invoked  by  procedure  RESEQUENCE,  respectively. 


Table  7.12-1  Datasets  Input/Output  by  procedure  RESEQUENCE 

D&taset 

Description 

Input 

Output 

JSEQ.BTAB.2.17 

Nodal  Elimination  Sequence 

KMAP..nsubs.ksize 

Model  Connectivity  Map 

v/ 

Table  7.12-2  Processors  Invoked  by  procedure  RESEQUENCE 

Procedure 

Type 

function 

RSEQ 

Internal 

Joint  resequcncing 

PFM 

Internal 

Joint  resequencing  using  profile-front  minimization 

7.12.3  ARGUMENT  DESCRIPTIONS 

7.12.3.1  LDI 

Logical  device  index  (default:  1). 

7.12.3.2  MAXCON 

Maximum  number  of  joints  connected  to  any  one  joint  (default:  35). 

7.12.3.3  RSEQ.METHOD 

llescqucncitig  method  (default:  -l).  If  rseq_method  is  -1,  then  a resequcncing  method 
implemented  in  processor  RSEQ  (see  Section  6.1  of  reference  7.12-1)  is  selected  which  is 
appropriate  for  the  equation  solver  defined  by  the  global  macrosymbol  solver-name. 


solver-name 

rseqjnethod 

INV 

i 

BAND 

2 

ITER 

1 

SPK 

none 

If  rseq_method  is  10,  then  the  profile-front  minimization  resequencing  method  imple- 
mented in  processor  PFM  (see  Section  6.2  of  reference  7.12-1).  If  the  global  macrosymbol 
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solv«r_nam*  is  SPK,  no  rcscqucncing  is  performed  since  processor  SPK  performs  its  own 
resequencing  (see  Section  8.6  of  reference  7.12-1).  Other  values  of  raaqjnethod  will  select 
a specific  resequencing  method  requested  by  a user. 

7.12.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  RESEQUENCE  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  Rom  their  default  values  by  including  any  or  all 
of  the  arguments  rind  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

•call  RESEQUENCE  ( RSEQ.METHOD  - 2 ) 

7.12.5  LIMITATIONS 

None. 

7.12.6  ERROR  MESSAGES  AND  WARNINGS 

None. 

7.12.7  PROCEDURE  FLOWCHART 

Procedure  RESEQUENCE  is  self-contained  with  no  subprocedures. 

7.12.8  PROCEDURE  LISTING 


•procedure  RESEQUENCE  ( rseq_aethod=-l  ; aaxcon=35;  ldi»l  ) 


•if  < ifeqs(  <solver_naae>;SPK)  > /then 

•reaark  ••••••*••*••*••••••*•**•*•••••****•••****** 

•reaark  • Processor  SPK  doea  it*  own  resequencing  • 
•reaerk  ••••••••*••••••••••••••••••••••*♦♦•••*••••• 

•else 

•if  < [rseq.nethod]  /eq  10  > /then 
Czqt  PPM 

RESET  BLIB= [ldi] 
reset  aazeon  = [aazeon] 

•elseif  < [rseq.aethod]  /ne  -1  > /then 
[XQT  RSEQ 

RESET  BLIB*[ldi] 

reset  aethod= [rseq.nethod] , aaxcon=  [aaxcon] 


•else 

•if  < ifeqs(  <solver_nane>;INV)  > /then 
*def/i  rseq.aethod  = 1 
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•alsai t < ifaqs(  <»olvar.na»a>;BAND)  > /then 
♦daf/i  rsaq.aathod  = 2 

*«li« 

*daf/i  rsaq.aathod  = 1 
♦and if 
[IQT  RSEQ 

RESET  BLIB*[ldi] 

rasat  aathod*<raaq.*athod> , aaxcon* [aaxcon] 

♦and if 
♦andif 

♦and 

7.12,9  REFERENCES 

7.12-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  Userfs 

Manual.  NASA  TM- 100644,  October  1989. 
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7.13  Procedure  SOLVE 

7.13.1  GENERAL  DESCRIPTION 

Procedure  SOLVE  solves  a linear  system  of  equations  using  a solver  defined  by  the 
global  macrosymbol  solver  .name.  If  solver_name  is  INV,  the  forward-reduction- back- 
substitution  phase  of  the  original  nodal-block  sparse  solver  implemented  in  processor  SSOL 
will  be  used  (see  Section  8.3  of  reference  7.13-1).  If  solver-name  is  defined  to  be  BAND,  a 
variable-bandwidth  direct  solver  implemented  in  processor  BAND  will  be  used  (see  Section 
8.5  of  reference  7.13-1).  If  solver-name  is  defined  to  be  ITER,  an  iterative  method  imple- 
mented in  processor  ITER  will  be  used  (see  Section  8.4  of  reference  7.13-1).  If  solver_name 
is  defined  to  be  SPK,  the  SPARSPAK-A  direct  solver  will  be  used  to  factor  and  solve  the 
system  of  equations  (see  Section  8.6  of  reference  7.13-1). 

7.13.2  PROCEDURE  USAGE 

Procedure  SOLVE  is  used  by  preceding  the  procedure  name  by  the  *call  directive,  and 
following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  SOLVE  ( argl  * vail  ; arg2  » val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  SOLVE  are  summarized  in  the  following  table,  along 
with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are  generally 
mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this  rule  are 
noted  in  the  following  section  under  detailed  argument  descriptions. 
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For  procedure  SOLVE,  the  following  table  lists  each  argument,  its  default  value  and  meaning. 


Argument 

Default  Value 

Meaning 

APPLIED  JtOTIOH 

1 

Flag  for  applied  displacements 

CONSTRAINT-SET 

1 

Constraint  set  number 

LDI 

1 

Logical  device  index 

LOAD-SET 

1 

Load  set  number 

MATRIX 

K 

First  word  of  the  name  of  the  dataset 
containing  the  assembled  stiffness  matrix. 

RHS 

APPL.FORC 

First  two  words  of  the  dataset  name  for  the 
right-hand  side  system  vector. 

SOLN 

STAT.DISP 

First  two  words  of  the  dataset  name  for  the 
displacement  solution 

Tables  7.13-1  and  7.13-2  list  the  datasets  used  or  created  by  procedure  SOLVE  and  the 
processors  invoked  by  procedure  SOLVE,  respectively. 


Table  7.13-1  Datasets  Input/Output  by  procedure  SOLVE 

Dataset 

Description 

Lib 

Input 

Output 

AMAP..ic2.isize 

Factorization  Map  for  INV 

1 

V 

APPL.FORCa.lt 

Applied  force  vector 

B 

V 

APPL.MOTLi.lt 

Specified  displacement  vector 

l 

y/ 

CON..; 

Constraints 

n 

V 

EQNF.FORC.iset.l 

Equivalent  nodal  forces 

i 

V 

INV.<KNAME>.; 

Factored  Stiffness  Matrix 

i 

V 

JDF1.BTAB.1.8 

Model  Summary 

i 

V 

JSEQ.BTAB.2.17 

Nodal  Elimination  Sequence 

D 

V 

KMAP..nsubs.ksize 

Model  Connectivity  Map 

D 

V 

< K N AME  > .SPAR.jd/j? 

Assembled  Stiffness  Matrix 

B 

V 

STAT.DISP.i.jt 

System  Displacement  Vector 

l 

V 

STAT.REAC.i.;t 

System  Reaction  Force  Vector 

B 

V 

t i = <load_set>  and  j <cons_set> 
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Table  7.13-2  Processors  Invoked  by  procedure  SOLVE 

Procedure 

Type 

hmclion 

BAND 

External 

Solves  system  of  equations  using  stiffness  matrix  in  variable- 
bandwidth  solver 

ITER 

External 

Solves  system  of  equations  using  iterative  method 

SPK 

External 

Solves  system  of  equations  using  SPARSPAK-A  solve 

SSOL 

Internal 

Solves  system  of  equations  using  nodal-block-sparse  solver 

VEC 

Internal 

Vector  algebra  utilities 

7.13.3  ARGUMENT  DESCRIPTIONS 

7.13.3.1  APPLIED-MOTIOH 

Flag  indicating  that  applied  displacements  arc  involved  in  the  loading  (default:  0 or  FALSE). 

7.13.3.2  COHSTRAINT.SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  be  used 
in  solving  the  linear  system  of  equations. 

7.13.3.3  LDI 

Logical  device  index  (default:  l). 

7.13.3.4  LOAD-SET 

Load  set  number  (default:  l).  This  argument  selects  which  load  set  to  be  used  as  a 
right-hand  side  vector. 

7.13.3.5  MATRII 

First  word  of  the  dataset  name  containing  the  assembled  stiffness  matrix  (default:  K). 
7.13.3.0  RHS 

First  two  words  of  the  dataset  name  for  the  right-hand  side  system  vector  (default: 
APPL.FORC). 

7.13.3.7  SOLM 

First  two  words  of  the  dataset  name  for  the  displacement  solution  (default:  STAT.DISP). 
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7.13.4  USAGE  GUIDELINES  AND  EXAMPLES 


Procedure  SOLVE  is  used  by  preceding  the  procedure  name  by  the  *call  directive.  Proce- 
dure arguments  may  be  changed  from  their  default  values  by  including  any  or  all  of  the 
arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank  is  required 
between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

*call  SOLVE  ( MATRIX  * K ; COBSTRAINT.SET  * 1 ; 

LOAD.SET  = * APPL . FORC * ; SOLH  = >STAT.DISP»  ) 

Before  procedure  SOLVE  is  called  the  global  macrosymbol  solverjaame  should  be  defined 
as  described  in  Section  7.12.1  and  should  be  consistent  with  the  value  used  when  procedure 
FACTOR  was  called.  If  it  is  not  specified,  then  the  default  value  IBV  will  be  used. 

7.13.5  LIMITATIONS 

None. 

7.13.0  ERROR  MESSAGES  AND  WARNINGS 
None. 

7.13.7  PROCEDURE  FLOWCHART 
Procedure  SOLVE  is  self-contained  with  no  subprocedures. 

7.13.8  PROCEDURE  LISTING 

aprocadura  SOLVE  ( rhs^appl.lorc* ; •oln=,stat.disp>  ; matrix  * K ; — 
load_set=l;  constraint. set=l ; applied.notion;  — 
ldi=l  ) 

. Procedure  to  solve  a linaar  system  of  aquations  using  dillerent  solvars. 

. Tha  solver  is  salactad  using  tha  global  ■acrosyabol  "solver .name". 

ail  < ifaqs(  <solver.name>;  ) > /than 

adel/a  solver.naae  ■■  INV 

•andif 


Dafina  Uni qua  Psaudo  Load  Sat  Nunbar  lor  SSOL  Vactor  Datasats 


adal/i  iuniqua  * 0090 


Copy  Eight^ -Hand- Sid#  Vactor  to  SSOL  Forca  Dataset 


[xqt  VEC 
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iPPL,FOEC.<iuniqua>.i  <-  [rks]  /singl*_pr»ci»ion 


Copy  Applied  Notions  to  SSOL  Appliad  Notion  Datasat 


-find  [idi]  APPL. NOTI . <iuniqua> . 1 /saq*ids_AMU 
•i f < <ids.AMtJ>  /gt  0 > /than 
APPL . NOTI . <iuniqua> . 1 <-  0. 

♦•Iso 

•g2n  /nana*nun.nodas  /typo=i  [Xdi]  MODEL. SUMMAET  NUN.NODES 
•g2n  /nana*nun.dofs  /type=i  [ldi]  MODEL . SUMMARY  NUM.DOFS 
INIT.VEC  APPL. NOTI. <iuniqua>. 1 <nun.dofs>  BY  <num_nodas> 
•andif 

•if  < <IFELSE( [appliad.no t ion] ; ;0;1)>  >/th*n 
♦find  [ldi]  [applied. not ion]  /saq*lds_AH 
•if  < <ids.AM>  /gt  0 > /than 

APPL. NOTI. <iunlqus> . 1 <-  [appllsd. notion] 

•sndif 

•andif 

•if  < ifsqs(  <solvar_nana> ; INV)  > /than 

. Dsa  original  nodal  block  sparss  solvar  originally  in  SPAE 
[ZQT  SSOL 

EESET  K * [natrix] 

EESET  KLIB  - [ldi] 

EESET  KILIB  * [ldi] 

EESET  QLIB  = [ldi] 

EESET  SET  * <iuniqua> 

EESET  CON  • [constraint. sat] 

•alsaif  < ifaqs(  <solvar.nana>;BAND)  > /than 


. Dsa  Bandad  solvar 
[XQT  BAND 

ra sat  nath*28,  ldl*l 

rasat  neon* [constraint. sat] , dsaro*1.0a-20,  k*[natrix] 
rasat  opt *2,  ras*l,  lsat*<iuniqus> 

•alsaif  < ifaqs(  <solvar.nana>; ITER)  > /than 


. Dsa  Itarativa  solvar 
[XQT  ITEE 

rasat  ap*l,initsll,xnit*-.l,nnth*l ,tina*l»itol*15 
rasat  neon* [constraint. sat] 9 isat*<iuniqua>;  k* [natrix] 
rasat  anax*0.6 

•alsaif  < ifsqs(  <solvar.nana>;SPK)  > /than 
. Usa  SPAESPAK  solvar 
[XQT  SPK 

salact  /const* [constraint. sat]  /knans* [natrix] 
salact  /nsglva*2  /nsglvl*2  /load*<iunique> 

•andif 
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Copy  Solution  Vector  to  Required  Output  Detaeet 


♦def/a  std.naae  • STAT.DISP. [load.set] . [constraint.set] 
♦if  < <IFELSE( [»oln] ;<std.naae> ; 1 ;0)>  > /then 

♦renane  [Idi]  ST AT. DISP.<iunique>. [constraint. set] 
STAT.DISP. [load.set] . [constraint. set] 
♦rename  [ldi]  ST AT. REAC.<iunique>. [constraint. set]  = 

STAT.REAC. [load.set] . [constraint. set] 

♦else 

[soln]  <-  STAT.DISP. <iunique>. [constraint. set] 

♦end if 

♦end 


7.13.9  REFERENCES 

7.13-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User’s 
Manual.  NASA  TM-100644,  October  1989. 
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7.14  Procedure  STIFFNESS 

7.14.1  GENERAL  DESCRIPTION 

Procedure  STIFFNESS  forms  the  assembled  unconstrained  stiffness  matrix. 

7.14.2  PROCEDURE  USAGE 

Procedure  STIFFNESS  is  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formal 
syntax  is  as  follows: 


♦call  STIFFNESS  ( argl  = vail  ; arg2  * val2  ; . . . ) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  STIFFNESS  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory,  while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 
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For  procedure  STIFFNESS,  the  following  table  lists  each  argument,  its  default  value  and 
meaning. 

Argument  Default  Value  Meaning 


TYPE 

TANG 

Type  of  stiffness  matrix  to  form  (default:  TANG). 

This  argument  defines  the  type  of  stiffness  to  form  linear 
material  stiffness  matrix  (MATL),  geometric  stiffness 
matrix  (GEOM),  or  the  tangent  stiffness  matrix  (TANG). 

CONSTRAINT-SET 

1 

Constraint  set  number  (default:  tt  1).  This  argument 
selects  which  constraint  set  to  be  used  in  solving  the 
linear  system  of  equations. 

COROTATION 

1 

Corotation  flag 

NL.GEOH 

0 

Geometric  nonlinearity  flag 

NL-LOAD 

0 

Load  nonlinearity  flag 

NL.MATL 

0 

Material  nonlinearity  flag 

INPUT.LDI 

1 

Logical  device  index  with  the  element  stiffness  matrices 
(default:  l). 

OUTPUT-LDI 

1 

Logical  device  index  for  the  assembled  unconstrained 
stiffness  matrix  (default:  1). 

LOAD-SET 

1 

Load  set  number  (default:  1).  This  argument  selects 
which  load  set  to  be  used  as  a right-hand-side  vector. 

LOAD-FACTOR 

1.0 

Load  factor  for  the  basic  load  system  (default:  1 .0). 

STIFFNESS 

DISPLACEMENT 

ROTATION 

K 

First  word  of  the  dataset  containing  the  assembled 
unconstrained  stiffness  matrix  (default:  K). 

Full  dataset  name  for  the  displacement  vector. 

Full  dataset  name  for  the  rotation  vector. 

Tables  7.14-1  and  7.14-2  list  the  datasets  used  or  created  by  procedure  STIFFNESS  and  the 
processors  invoked  by  procedure  STIFFNESS,  respectively. 


Table  7.14-1  Datasets  Input/Output  by  procedure  STIFFNESS 


Dataset 

Description 

Input 

Output 

JDFl.BTAB.1.8 

Model  Summary 

V 

JSEQ.BTAB.2.17 

Nodal  Elimination  Sequence 

V 

K M AP. . nsubs.ksize 

Model  Connectivity  Map 

y/ 

<STIFFNESS>.SPAR.jd# 

Assembled  Stiffness  Matrix 

V 
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Table  7.14-2  Processors  Invoked  by  procedure  STIFFNESS 

Procedure 

Type 

Function 

VEC 

Internal 

Vector  algebra  utilities 

ESi 

External 

Various  element  processors  based  on  the  GEP 

K 

Internal 

Assembles  unconstrained  stiffness  matrix 

7.14.3  ARGUMENT  DESCRIPTIONS 

7.14.3.1  TYPE 

Type  of  stiffness  matrix  to  form  (default:  TANG).  This  argument  defines  the  type  of  stiffness 
to  form  linear  material  stiffness  matrix  (NATL),  geometric  stiffness  matrix  (GEOM),  or  the 
tangent  stiffness  matrix  (TANG). 

7.14.3.2  CONSTRAINT-SET 

Constraint  set  number  (default:  l).  This  argument  selects  which  constraint  set  to  be  used 
in  solving  the  linear  system  of  equations. 

7.14.3.3  INPUT-LDI 

Logical  device  index  with  the  element  stiffness  matrices  (default:  l). 

7.14.3.4  OUTPUT-LDI 

Logical  device  index  for  the  assembled  unconstrained  stiffness  matrix  (default:  l). 

7.14.3.5  LOAD-SET 

Load  set  number  (default:  1).  This  argument  selects  which  load  set  to  be  used  as  a 
right-hand  side  vector. 

7.14.3.0  LOAD-FACTOR 

Load  factor  for  the  basic  load  system  (default:  1.0). 

7.14.3.7  STIFFNESS 

First  word  of  the  dataset  name  containing  the  assembled  unconstrained  stiffness  matrix 
(default:  K). 
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7.14.3.8  DISPLACEMENT 

Full  dataset  name  for  the  displacement  vector. 
7.14.3.0  ROTATION 

Full  dataset  name  for  the  rotation  vector. 


7.14.3.10  COROTATION 

Corotation  switch;  employed  by  ESt  processors  for  automatic  treatment  of  geometric  non- 
linearity due  to  large  rotations  (default:  1).  Relevant  only  if  problem  is  geometrically 
nonlinear.  (See  Chapter  4 of  reference  7.2-1  for  an  explanation  of  these  options.)  If  CORO- 
TATION equals  zero,  then  the  corotational  operations  will  be  skipped.  If  COROTATION  equals 
one  (low-order  option),  then  the  basic  corotational  transformations  will  be  employed  to 
enable  large  rotations.  If  COROTATION  equals  two  (high-order  option),  then  a more  accurate 
(and  expensive)  treatment  of  large  rotations  and  consistent  linearization  than  option  1 will 
be  employed. 

7.14.3.11  ES-NL-CEOM 

Geometric  nonlinearity  switch  (default:  0).  If  ES_NL_GE0M  equals  zero  (no  corotational 
frames),  then  the  problem  is  geometrically  linear  (small  displacements/rotations).  If 
NL-GEOM  equals  one  (low-order  option),  then  the  problem  is  geometrically  nonlinear,  but 
elements  should  use  linear  strain-displacement  relations.  Meaningful  only  if  C0RQTATI0N 
> 0,  so  that  large  rotations  can  be  handled  automatically  by  the  corotational  algorithm. 
If  NL-GEOM  equals  two  (high-order  option),  then  the  problem  is  geometrically  nonlinear 
and  elements  should  use  nonlinear  element  strain-displacement  relations.  May  be  used 
in  conjunction  with  COROTATION  > 0 to  obtain  higher-order  accuracy  for  beam  and  shell 
elements  that  employ  moderate- rotation  strain-displacement  relations. 

7.14.3.12  NL-MATL 

Material  nonlinearity  switch  (default:  0).  If  NL-MATL  is  greater  than  zero,  then  the  element 
is  materially  nonlinear.  If  L-MATL  is  zero,  then  the  element  is  materially  linear. 

7.14.3.13  NL-LOAD 

Load  nonlinearity  switch  (default:  0).  If  NL-LOAD  is  greater  than  zero,  then  the  element 
loads  are  displacement  dependent.  If  NL-LOAD  equals  zero,  then  the  element  loads  are  not 
displacement  dependent. 
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7.14.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  STIFFNESS  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 

Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 

of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 

is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis. 

•call  STIFFNESS  ( TYPE  = MATL  ; CONSTRAINT.SET  * 1 ; STIFFNESS  * K ) 

7.14.5  LIMITATIONS 

None. 

7.14.0  ERROR  MESSAGES  AND  WARNINGS 

None. 

7.14.7  PROCEDURE  FLOWCHART 

STIFFNESS  (main  procedure) 

ES  (form  element  stiffness  matrices) 

7.14.8  PROCEDURE  LISTING 

♦procedure  STIFFNESS  ( type  = TANG 

nl.geoa  = 0 
nl.matl  = 0 
nl.load  ■ 0 
displacement 
rotation 
corotation  » 1 
load.f actor  * 1.0 
load_set  » 1 
stiffness  * K 
input. ldi  * 1 
output _ldi  a 1 
constraint. set  « 1 

♦remark 

♦Remark  Forming  [type]  Stiffness  Matrix 

♦remark 


Fora  Element  Stiffness  Matrices  (in  EFIL  Dataset) 


♦call  ES  ( function  = ’FORM  STIFFNESS/ [type]  ’ ; — 

ldi  * [input. ldi]  ; — 

es.nl.geom  « [nl.geoa]  ; — 


— . MATL  I GEOM  I TANG 


— . Input  dataset 

— . Input  dataset 


— . Output  dataset 
) 
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as.nl.natl 

as.nl.load 

as.dis.ds 

as.rot.ds 

as.coro 

as.load.factor 

as.load.sat 


[nl.aatl] 

[nl.load] 

[displacanant] 

[rotation] 

[corotation] 

[load.f actor] 

[load.sat]  ) 


iasanbla  El am ant  Stiffnass  Matrix  into  Systam  Matrix 


CXQT  K 

RESET  NAME  » [stiffnass] 
RESET  BLIB  « [input.ldi] 
RESET  ELIB  * [input.ldi] 
RESET  HUB  • [input. ldi] 
RESET  OUTLIB  ■ [output.ldi] 
RESET  SPDP  * <csa.praclslon> 

♦and 


7.14.0  REFERENCES 

7.14-1  Stewart,  Caroline  B.:  The  Computational  Structural  Mechanics  Testbed  User's 
Manual  NASA  TM-100644,  October  1989. 
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7.15  Procedure  SWITCHJDS 

7.15.1  GENERAL  DESCRIPTION 

Procedure  SWITCHJJS  switches  two  datasets  within  the  same  data  library.  This  procedure 
only  uses  directives  from  the  command  language  (see  reference  7.7-1). 


7.15.2  PROCEDURE  USAGE 

Procedure  SVITCH.DS  is  used  by  preceding  the  procedure  name  by  the  *call  directive, 
and  following  it  by  a list  of  arguments  enclosed  in  parentheses.  Procedure  arguments  are 
order-independent,  and  most  have  default  values  thus  making  them  optional.  The  formed 
syntax  is  as  follows: 


[♦call  SWITCH J?S  ( argl  = vail  ; arg2  = val2  ; ...) 

where  argl  and  arg2  represent  argument  names,  and  vail  and  val2  represent  their  cor- 
responding values.  Note  that  semi-colons  are  required  between  arguments,  and  a double 
dash  ( — ) may  be  used  to  continue  the  argument  list  on  the  next  line. 

The  allowable  arguments  for  procedure  SWITCH_DS  are  summarized  in  the  following  table, 
along  with  their  default  values  (if  they  exist).  Note  that  arguments  without  defaults  are 
generally  mandatory , while  those  with  defaults  are  generally  optional.  Exceptions  to  this 
rule  are  noted  in  the  following  section  under  detailed  argument  descriptions. 

For  procedure  SVITCfiLDS,  the  following  table  lists  each  argument,  its  default  value  and 


meaning. 

Argument 

Default  Value 

Meaning 

DS_1 

— 

Source  dataset  name 

DS_2 

-- 

Target  dataset  name 

LDI 

1 

Logical  device  index 

7.15.3  ARGUMENT  DESCRIPTIONS 

7.15.3.1  LDI 

Source  logical  device  index  (default:  1).  Data  library  number  containing  the  two  datasets 
DS_1  and  DS_2. 

7.15.3.2  DS-1 

Source  dataset  to  be  copied  from  within  the  data  library  with  a logical  device  index  of  LDI 
to  the  target  dataset  named  DS_2. 
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7.15.3.3  DS-2 

Target  dataset  for  copying  the  source  dataset  named  DS.1  from  within  the  data  library 
with  a logical  device  index  of  lil)I. 

7.15.4  USAGE  GUIDELINES  AND  EXAMPLES 

Procedure  SVITCHJ)S  is  used  by  preceding  the  procedure  name  by  the  *call  directive. 
Procedure  arguments  may  be  changed  from  their  default  values  by  including  any  or  all 
of  the  arguments  and  their  new  values  when  the  procedure  is  called.  A space  or  blank 
is  required  between  the  end  of  the  procedure  name  and  the  left  parenthesis.  If  the  default 
values  of  the  procedure  arguments  are  to  be  used,  then  only  the  procedure  name  is  required. 

•call  SWITCH.DS  ( ldi-1;  ds.l;  ds_2  ) 

7.15.5  LIMITATIONS 

None. 

7.15.0  ERROR  MESSAGES  AND  WARNINGS 

None. 

7.15.7  PROCEDURE  FLOWCHART 

Procedure  SWITCH-DS  is  self  contained  with  no  subprocedures. 

7.15.8  PROCEDURE  LISTING 

-procadura  SWITCH.DS  ( ldi-1;  d»_l;  da .2  ) 

. CLAMP  Procedure  to  switch  two  datassts  within  a data  library 
*d#f/a  tap.ds  « xxxx.xxxx. 9000. 0009. 0090 
+ ran an*  [ldi] , [ds.l]  * <tnp_ds> 

+r«nana  [ldi] , [ds_2]  ■ [ds.l] 

*ranans  [ldi] # <tap_ds>  * [ds_2] 

•and 

7.15.9  REFERENCES 

7.7-1  Felippa,  Carlos  A.:  The  Computational  Structural  Mechanics  Testbed  Architecture: 
Volume  II  - Directives.  NASA  CR  178385,  February  1989. 
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